Error al hacer exportacion con DTS (Argumento o llamada a procedimiento no validos: 'DTSSource')

DTSDestination("RazonSocial") = DTSSource("razonsocial").Value

Hola, los molesto por un error que no estoy pudiendo resolver.
Estoy importando datos de una tabla a otra en SQL 2000, utilizando DTS y
en la trasnformacion tengo:
'**********************************************************************
' Visual Basic Transformation Script
' Copy each source column to the
' destination column
'************************************************************************

Function Main()
DTSDestination("RazonSocial") = DTSSource("razonsocial")
DTSDestination("Calle") = DTSSource("domiciliolegal")
DTSDestination("CodPostal") = DTSSource("codigopostallegal")
DTSDestination("Telefono") = DTSSource("telefonoslegal")
DTSDestination("Email") = DTSSource("emaillegal")
DTSDestination("Web") = DTSSource("paginaweb")
DTSDestination("ObservacionesGrales") = DTSSource("observaciones")
DTSDestination("FechaInicioActividades") =
DTSSource("fechainicioactividad")
DTSDestination("CUIT") = DTSSource("cuit")
DTSDestination("NroIngBrutos") = DTSSource("ingresosbrutos")
Main = DTSTransformStat_OK
End Function

Me da el error:
Error en la transformacion 'AxScriptform' para el numero de fila 1.
Errores encontrados hasta ahora en esta tarea:1. Codigo de error=0
Origen de error=Error de microsoft VBScript en tiempo de ejecucion
Descripcion de error: Argumento o llamada a procedimiento no validos:
'DTSSource'
Error en linea 12

Estoy revisando pero no encuentro el motivo del error.
Desde ya muchas gracias.