moves 5 records backward from the current record in a DAO recordset:
Sub MoveRows() Dim myDatabase As dao.Database
Set myDatabase = OpenDatabase(CurrentProject.Path & "\mydb.mdb")
Dim myRecordset As dao.Recordset
Set myRecordset = myDatabase.OpenRecordset(Name:="SELECT * FROM Customers WHERE Country='Germany'", Type:=dbOpenDynaset)
myRecordset.Move Rows:=-5 End Sub