Dim dtsDataReader As IDataReader
Dim dtsp As New DTS.Package
Dim A As String
Dim pkgLocation As String
Dim pkg As New DTS.DTSTaskExecResult
' Dim app As New Application
Dim pkgResults As DTS.DTSTaskExecResult
dtsp.LoadFromSQLServer( _
ServerName:="Servidor", _
ServerUserName:="USER", _
ServerPassword:="PASS", _
PackageName:=NombreDTS)
dtsp.Execute()