Ejecutar paquetes DTS desde VB

angel
08 de Marzo del 2004
Estoy ejecutando paquetes DTS desde un proyecto de VB...
'Declaro las instancias
Private WithEvents pkgDTS As DTS.Package
Dim objPackage As DTS.Package2
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objExecPkg As DTS.ExecutePackageTask

'On Error GoTo PackageError
Set objPackage = New DTS.Package
Set pkgDTS = objPackage

'si hay algun error en alun paso,se para proceso
'todo el proceso
objPackage.LogServerName = "MiEquipo"
objPackage.FailOnError = True
objPackage.LogServerUserName = "sa"
objPackage.LogServerPassword = "sa"

Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask

With objExecPkg
.PackagePassword = ""
.FileName = App.Path + "PruebasSITIO.dts"
.Name = "ExecPkgTask"
End With
With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
'Indico si este paso se ejecuta en el hilo
'principal del proceso
.ExecuteInMainThread = True
End With

objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask

objPackage.Execute

Set objPackage = Nothing
Set objStep = Nothing
Set objTask = Nothing
Set objExecPkg = Nothing

'Permite que los objetos puedan ser usados otra
'vez
objPackage.UnInitialize

MsgBox "Pulsa para continuar", vbOKOnly, "AVISO!!!"

End If

'PackageError:
' MsgBox Err.Description

End Sub

Me da el siguiente error:
El proveedor generó una excepción de ejecución de código:
EXCEPTION ACCESS VIOLATION

Por la descripcion me puedo hacer una idea pero estoy totalmente perdido....
Es un ejemplo de la ayuda de VB con sus correspondientes cambios...
Podria alguien ponerme una ejemplo sencillo de como importar datos a traves de ficheros .dts desde VB a SQL Server?
gracias...