...По счётчику. Неужели нет другого способа кроме как:
(ObjectsDB - БД, "ID" - поле со счётчиком.)
Public Sub NewPos(ByVal no As Long)
ObjectsDB.Recordset.MoveFirst
Do
If ObjectsDB.Recordset("ID") = no Or ObjectsDB.Recordset.EOF = True Then Exit Do
ObjectsDB.Recordset.MoveNext
Loop
End Sub
Absolute Position не подойдёт, т.к. он тока на нужный номер записи в БД перемещается. А нужно на нужный номер счётчика.