Please post the rest of the script. Also make sure every object has been set. I personaly like to establish my recorset as follows...
Dim strCon
Dim strSQL
Dim objRecordSet
Set objRecordSet = Sever.CreateObject("ADODB.RecordSet"
'Pick One'''''''''''''''''''''''''''''''''''''''
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=yourdata.mdb;"'Access Connection
'strCon= "Provider=SQLOLEDB;Server=sqlServer;Uid=sa;Pwd=password;Database=yourdata" 'SQL Server Connection
''''''''''''''''''''''''''''''''''''''''''''''''
strSQL = "SELECT * FROM YourTable"
objRecordSet.ActiveConnection = strConn
objRecordSet.Source = strSQL
objRecordSet.CursorLocation = 3
objRecordSet.LockType = 3
objRecordSet.CursorType = 0
objRecordSet.Open
objRecordSet.Close