2000 Active X Doesn't Work In 2005

I have an active x script written in vb that just counts the records in a table and fails the step if there are not enough records. It is simple and effective. But when I transfered this task to my SSIS package I get a function not found error.

I am not familiar with active x or vb script so I have no idea what is wrong. I can do without while I build the package but I need it in the end to prevent possible problems....

Here is the script...

'**********************************************************************

' Visual Basic ActiveX Script

'************************************************************************

Function Main()

dim myConn

dim myRecordset

dim iRowCount

' instantiate the ADO objects

set myConn = CreateObject("ADODB.Connection")

set myRecordset = CreateObject("ADODB.Recordset")

' Init ADO Connection object

With myConn

.ConnectionString = "File Name=D:Data Linksmusic_load.udl;" 'Full path to the UDL

.Open

End With



mySQLCmdText = "Select 'totalcount' = Count(*) from fulltext"

myRecordset.Open mySQLCmdText, myConn

set Flds = myRecordset.Fields

set iRowCount = Flds("totalcount")

If iRowCount.Value < 1000000 then

' MsgBox "The number of products is: " & iRowCount.Value & ". The total number is wrong"

Main = DTSTaskExecResult_Failure

Else

' MsgBox "The number of products is: " & iRowCount.Value & ". The total number is good"

Main = DTSTaskExecResult_Success

End If



End Function