I Made a connection with a Text File and some of his columns must be converted to money before inserted into the SQL Table.

So, i used Activex Script Transformation like this:

Function Main()
	DTSDestination("impVlrRecebido") = Cdbl(DTSSource("Col006"))
	Main = DTSTransformStat_OK
End Function
But I Always Get this error message:

<DTS Testing Transform Task>
The number of failing rows exceeds the maximum specified.
Error Code: 0
Error Source= Microsoft VBScript runtime error
Error Description: Type mismatch: 'Cdbl'
Error on Line 6