Надо из программки на VB прочитать, какие есть DTS пакеты на SQL сервере и выбранный пользователем пакет запустить. Какой объект надо создать в VB - DTS.Application или какой-то другой? И какие можно использовать свойства и методы? Нашла вроде бы репозиторий, но он почему-то хочет имя базы данных, а мне неважно какая БД, пакеты же просто на сервере. Помогите, пожалуйста!

Нашла пример из MSDN, однако в Debugger'e дело доходит до строки While not... и уходит сразу, как будто Коллекция пустая. На самом деле в том же Debagger'e в окне Local Window я вижу, что Коллекция полная и что свойство EOF равно false.
В чём может быть дело?

Private Sub DTS_PackagesLoad(ByVal pi_sServer As String, ByVal pi_sUser As String, ByVal pi_sPasswort As String, ByRef po_colPackagesName As Collection)
Dim l_objDTSAppl As DTS.Application
Dim l_objPkgSQLServer As DTS.PackageSQLServer
Dim l_colPkgInfo As DTS.PackageInfos
Dim l_objPkgInfo As DTS.PackageInfo


On Error GoTo DTS_PackagesLoad_Error

Set l_objDTSAppl = New DTS.Application
'Set l_objPkgSQLServer = l_objDTSAppl.GetPackageSQLServer(pi_sServer, pi_sUser, pi_sPasswort, DTSReposFlag_UseTrustedConnection)
Set l_objPkgSQLServer = l_objDTSAppl.GetPackageSQLServer(pi_sServer, pi_sUser, pi_sPasswort, DTSSQLStgFlag_Default)

Set l_colPkgInfo = l_objPkgSQLServer.EnumPackageInfos("", False, "")

'For Each l_objPkgInfo In l_colPkgInfo
' po_colPackagesName.Add l_objPkgInfo.Name
'Next

While Not l_colPkgInfo.EOF
Set l_objPkgInfo = l_colPkgInfo.Next
po_colPackagesName.Add l_objPkgInfo.Name
Wend

DTS_PackagesLoad_Exit:
Set l_objDTSAppl = Nothing
Set l_objPkgSQLServer = Nothing
Set l_colPkgInfo = Nothing
Set l_objPkgInfo = Nothing
Exit Sub

DTS_PackagesLoad_Error:
Set l_objDTSAppl = Nothing
Set l_objPkgSQLServer = Nothing
Set l_colPkgInfo = Nothing
Set l_objPkgInfo = Nothing
MsgBox Err.Description, vbExclamation + vbOKOnly
End Sub