Al ejecutar un DTS me ducplica la información al exportar los datos

[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