Sub FindRecordPosition()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\mydb.mdb"
Set conn = New ADODB.Connection
conn.Open strConn
Set rst = New ADODB.Recordset
With rst
.Open "Select * from Employees", conn, adOpenKeyset, _
adLockOptimistic, adCmdText
Debug.Print .AbsolutePosition
.Move 3 ' move forward 3 records
Debug.Print .AbsolutePosition
.MoveLast ' move to the last record
Debug.Print .AbsolutePosition
Debug.Print .RecordCount
.Close
End With
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub