ADO version of FindLast

Mitch · June 6th, 2005, 09:23 AM

I have some ADO code that I am trying to convert to ADO and I am getting stumpt on converting this line:

rstTblFill.FindLast "[Equip] ='" & strCurrLine & "'"

I tried using just: rstTblFill.Find but that takes me to only the first occurance. And "MoveLast" takes me to the end of all the records and not just the one that matches the criteria I need.

Then I tried: rstTblFill.Seek "[Equip] ='" & strCurrLine & "'", adSeekLastEQ but that game me an error with a number 0 (whatever that means) and I was using "server side cursurs" when I opened the recordset the following way:

Code:

 Set rstTblFill = New Recordset
    With rstTblFill
         .ActiveConnection = CurrentProject.Connection
         .Source = "zzz_Schedule_ReportFill"
         .CursorLocation = adUseServer
         .CursorType = adOpenDynamic
         .LockType = adLockOptimistic
         .Open Options:=adCmdTable  
    End With

So, I am open for any suggestions. I am using Access 2002 and SQL2000