G
Guest
I'm trying to run the following code:
Dim RS As New ADODB.Recordset
RS.Open "Labs", CurrentProject.Connection
RS.MoveFirst
RS.Find "[Lab ID] = " & GetCustomProp("Lab ID")
(GetCustomProp is a function that returns the value of custom database
properties. Currently, it returns a numeric 5 for Lab ID.)
The RS.MoveFirst line is in there because the helpfile suggested it was
necessary to set the cursor onto a record before using Find, though the
example they gave didn't do it, so I'm a bit confused on that front.
When I run this code, I get the following error:
Run-time error '-2147217879 (80040e29)':
Rowset does not support scrolling backward.
Can someone explain this to me?
Dim RS As New ADODB.Recordset
RS.Open "Labs", CurrentProject.Connection
RS.MoveFirst
RS.Find "[Lab ID] = " & GetCustomProp("Lab ID")
(GetCustomProp is a function that returns the value of custom database
properties. Currently, it returns a numeric 5 for Lab ID.)
The RS.MoveFirst line is in there because the helpfile suggested it was
necessary to set the cursor onto a record before using Find, though the
example they gave didn't do it, so I'm a bit confused on that front.
When I run this code, I get the following error:
Run-time error '-2147217879 (80040e29)':
Rowset does not support scrolling backward.
Can someone explain this to me?