Unable To Access SSIS Package

I (actually my DBA did it) have created an SSIS package in MS SQL Server 2005. It can be found under Integration Services under:



Stored Packages


MSDB


VisBridges


ExportTime
Using the Execute Package Utility, it runs perfectly.

I used the article at http://msdn2.microsoft.com/en-us/library/ms403355.aspx to build an application to run it.


My code includes the following (written in VB.Net):

a Web Service Function called LaunchPackage:


Public Function LaunchPackage(ByVal sourceType As String, _


ByVal sourceLocation As String, _

ByVal packageName As String) As Integer ' DTSExecResult



Dim packagePath As String


Dim myPackage As New Package()

Dim integrationServices As New Application



' combine path and file name


packagePath = Path.Combine(sourceLocation, packageName)



Select Case sourceType



Case "file"


' package is stored as a file.

' add extension if not present.

If String.IsNullOrEmpty(Path.GetExtension(packageName)) Then


packagePath = String.Concat(packagePath, ".dtsx")

End If





If File.Exists(packagePath) Then





myPackage = integrationServices.LoadPackage(packagePath, Nothing)

Else


Throw New ApplicationException("Invalid file location: " & packagePath)

End If

Case "sql"

' Package stored in MSDB.


' Combine logical path and package name.

If integrationServices.ExistsOnSqlServer(packagePath, <servername>, <UserID>, <password>) Then



myPackage = integrationServices.LoadFromSqlServer(packageName, <servername>, <UserID>, <password>, Nothing)

Else


Throw New ApplicationException("Invalid package name or location: " & packagePath)

End If

Case "dts"


' package is managed by SSIS Package Store.

' Default logical paths are File System and MSDB.






If integrationServices.FolderExistsOnDtsServer(packagePath, <servername>) Then


myPackage = integrationServices.LoadFromDtsServer(packagePath, <servername>, Nothing)

Else


Throw New ApplicationException("Invalid package name or location: " & packagePath)

End If

Case Else


Throw New ApplicationException("Invalid sourceType argument: valid values are 'file', 'sql', and 'dts'.")

End Select


Return myPackage.Execute()

End Function

My TestPage includes the following:


Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click


Dim launchPackageService As New LaunchSSISPackageService

Dim packageResult As Integer

Dim sourceType As String = "dts"

'Dim sourceLocation As String = "M:mssqlssiconfig" ' for "file"

'Dim sourceLocation As String = "MSDBVisBridges" ' for "sql"

Dim sourceLocation As String = "VisBridges" ' for "sql & dts"

'Dim sourceLocation As String = "MSDB"



If rdoCreateTimeTrans.Checked Then



Try


packageResult = launchPackageService.LaunchPackage(sourceType, sourceLocation, "ExportTime")

Catch ex As Exception


Response.Write("The following exception occurred: " & ex.Message)

End Try


End If

End Sub

I've tried both "sql" and "dts" with all the various permutations that are listed (and commented out) above. I either get an error that says:
The top level folder "VisBridges" is not found. ("dts" "VisBridges") -- or --
Invalid package name or location: MSDBVisBridgesExportTime ("dts" "MSDBVisBridges") -- or --
Cannot find folder "MSDBVisBridgesExportTime" ("sql" "MSDBVisBridges") -- or --
The specified package could not be loaded from the SQL Server database ("sql" "VisBridges")

Any assistance would be greatly appreciated.

Many thanks,
Michell