My query called getstock goes

SELECT Qty_Avail,Qty_order
FROM stock
WHERE foo_id = ?

and my code is as follows but it retruns an error of:

Error Source = MS vbscript runtime error
Error descrition: type missmatch: 'myarray'

i am just running the test, but when it runs live it errors

'************************************************* *********************
' Visual Basic Transformation Script
'************************************************* ***********************

' Copy each source column to the destination column
Function Main()

dim myarray
myarray = DTSLookups("getstock").Execute(DTSSource("Col004") )
DTSDestination("Qty_Avail").value = myarray(0)
DTSDestination("Qty_order").value = myarray(1)

Main = DTSTransformStat_OK

End Function

HELP !!!