active x script task error

Hi,

I am working with an active x script task and I keep getting this error.

[ActiveX Script Task] Error: Retrieving the file name for a component failed with error code 0x01DF3DD4.

I have tried to delete all but the first couple of lines but I keep getting this error. Does anyone have any ideas on how I can fix this. This code worked fine in SQL Server 2000.

Thanks

Brian

This is a snippet of my code

Function Main()
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

set mySourceConn = CreateObject("ADODB.Connection")
set rstemp = CreateObject("ADODB.Recordset")
set newtbltemp = CreateObject("ADODB.Recordset")

Main = DTSTaskExecResult_Success
End Function

I tried your script without any modification. It works.