Visual Basic - Capturar Salida de datos de un DTS

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()