The following works for me. I suspect you probably need to change one of the
properties of your recordset, such as the CursorLocation or CursorType.
Public Sub TestAdoBMark()
Dim rst As ADODB.Recordset
Dim varBMark As Variant
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = CurrentProject.Connection
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open ("SELECT CountyName FROM tblCountyCodes")
.Find "CountyName = 'Kildare'"
Debug.Print .Fields("CountyName")
varBMark = .Bookmark
.Find "CountyName = 'Laois'"
Debug.Print .Fields("CountyName")
.Bookmark = varBMark
Debug.Print .Fields("CountyName")
.Close
End With
End Sub
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.