Al ejecutar un DTS desde Visual Basic me duplica la información

[Enner]

Hola Tengo un problema con un DTS, estoy exportando una tabla que tengo en SQL Server y la quiero exportar en un archibo Dbase (.DBF); en el DTS yo creo la tabla cada vez que ejecuto el DTS pero al exportar los datos me los exporta duplicados. Estoy utilizando un archivo de almacenamiento estructurado y lo ejecuto desde Visual Basic; pro no c que es lo que pueda estar pasando, espero me Ayuden; esto me urge muchisimo...

[jc_moty]

Bueno, me parece que el problema es de logica, revisa detenidamente el codigo con el que "exportas" los datos, y te daras cuenta que en algo estas fallando ... o bien posteas el codigo para que lo podamos ver y seguramente alguien se fijara en el error.

Saludos

[Enner]

Bueno este es el código que uso para exportar los datos que se me están duplicando; paso como parámetros a la función el nombre del servidor, el usuario, la contraseña, el Id del paquete, el Id de versión del paquete, el nombre del paquete, la ruta donde está ubicado el archivo DTS y la carpeta o ruta destino donde se desargara el paquete... espero me puedan ayudar en esto...


Public Function EjecutarPackage_Descarga(Servidor As String, Usuario As String, Contraseña As String, _
ByVal IDPaquete As String, ByVal IDVersion As String, Nombre_Paquete As String, Ruta_Paquete As String, Destino_Archivo As String) As Boolean
Dim objPackage As DTS.Package2
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objExecPkg As DTS.ExecutePackageTask
'Dim objConnection As DTS.Connection2
Dim Isql As String

On Error GoTo Error_Ejecucion_Paquete

Set objPackage = New DTS.Package
'Set mobjPkgEvents = objPackage
objPackage.FailOnError = True
'DTSExecutePackageTask
'Create the step and task. Specify the package to be run, and link the step to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")

'Recuperamos el Paquete del Archivo DTS para alterar el Destino
objPackage.LoadFromStorageFile Ruta_Paquete, "", IDPaquete, IDVersion, Nombre_Paquete
'Cambiamos la Ruta del Origen del Archivo
objPackage.Connections(1).DataSource = Servidor
'Cambiamos la Ruta del Destino del Archivo
objPackage.Connections(2).DataSource = Destino_Archivo
'Guardamos los cambios en el Paquete.
'objPackage.SaveToStorageFile _
Ruta_Paquete, , , , True


Set objExecPkg = objTask.CustomTask
With objExecPkg
.ServerName = Servidor
.ServerUserName = Usuario
.ServerPassword = Contraseña
.PackageID = IDPaquete
.VersionID = IDVersion
.FileName = Ruta_Paquete
.Name = "ExecPkgTask"
End With

With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
.ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask

'Run the package and release references.
objPackage.Execute
EjecutarPackage_Descarga = True

Err_Salida:
Set objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
objPackage.UnInitialize
Exit Function

Error_Ejecucion_Paquete:
MsgBox Err.Description
EjecutarPackage_Descarga = False
objPackage.UnInitialize
GoTo Err_Salida
End Function