Sub exaRecordsetPosition()
Dim db As Database
Dim rsDyna As Recordset
Set db = CurrentDb
Set rsDyna = db.OpenRecordset("Books", dbOpenDynaset)
rsDyna.MoveFirst
Do While Not rsDyna.EOF
Debug.Print rsDyna!PubID & " / " & rsDyna!Title
Debug.Print rsDyna.AbsolutePosition
Debug.Print Format$(rsDyna.PercentPosition
rsDyna.MoveNext
Loop
rsDyna.Close
End Sub