codigo activex en dts-->tiempo de espera excedido¿?

Hola a todos...
El codigo es el siguiente:


Function Main()
dim myConn
dim myRecordset
dim iRowCount

' instantiate the ADO objects
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial
Catalog=bmbweb;user id = 'sa';password='PDAPESDB'"

mySQLCmdText = "Select F1,F7 from cancelacionbis where F1
="&DTSSource("F1")

myRecordset.Open mySQLCmdText, myConn


set Flds = myRecordset.Fields
set iF1 = Flds("F1")
set iF2 = Flds("F7")

' MsgBox "F1 is: " & iF1.Value
' MsgBox "F2 is: " & iF2.Value

If (iF1.Value<> DTSSource("F1").value or iF2.value <>
DTSSource("F7").value)Then

'mySQLCmdText = "Insert into cancelacionbis (F1,F7) values ("&
DTSSource("F1")&","& DTSSource("F7")&")"

MsgBox "Es diferente "
End if

DTSDestination("F1") = DTSSource("F1")
DTSDestination("F7") = DTSSource("F7")
DTSDestination("F5") = DTSSource("F5")
DTSDestination("F3") = DTSSource("F3")
DTSDestination("F9") = DTSSource("F9")
DTSDestination("F11") = DTSSource("F11")
Main = DTSTransformStat_OK
End Function


hay alguna forma de mejorarlo?
Por que si lo pruebo desdeel disñador si funciona y si ejcuto el DTS me da
el error'

Un saludo y gracias