La Web del Programador: Comunidad de Programadores
 
    Pregunta:  36801 - EJECUTAR DTS DE SQL SERVER 7 DESDE VISUAL BASIC
Autor:  Kenia Enriquez
Necesito ejecutar desde una aplicaciĆ³n Visual Basic un DTS creado en SQL Server 7 para realizar la actualizaciĆ³n de una Base de Datos SQL a partir de tablas en ForProx (.DBF) sobre Dos.

  Respuesta:  Enrique Rojas
Hi, en esta direccion encontraras un articulo para ejecutar un dts desde VB 6.0, lo he probado y es muy sencillo como lo pueses ver, pero lo que no encuentro es como capturar el error si sucediera en el DTS, si lo encuentras me lo pasa. Espero que te sirva

http://support.microsoft.com/default.aspx?scid=kb;es;315661

Sub Command1_Click()
Dim dtsp As New DTS.Package
dtsp.LoadFromSQLServer _
ServerName:="MyServer", _
ServerUserName:="MyUserID", _
ServerPassword:="MyPassword", _
PackageName:="DTSDemo"
dtsp.Execute
End Sub