Recordsetオブジェクトでレコードを移動するには、Move系メソッドを
使います。

　Recordsetオブジェクトの先頭へはMoveFirstメソッド、最後へはMoveLastメソッド、
次へはMoveNextメソッド、前へはMovePreviousメソッドを使います。

　サンプルプロシージャでは、「動物テーブル」のRecordsetオブジェクトを作成して、
最後のレコード、最後から2番目のレコード（最後の前のレコード）、先頭のレコード、
先頭から2番目のレコード（先頭の次のレコード）へ移動しながら、「動物名」フィールド
の内容をメッセージボックスに表示しています。

● サンプル　●

Sub Sample()
    Dim db   As Database
    Dim rs   As Recordset
          
    Set db = CurrentDb
    Set rs = db.OpenRecordset("動物テーブル", dbOpenTable)
    
    '最後のレコード
    rs.MoveLast
    MsgBox rs!動物名
    
    '最後から2つ目のレコード
    rs.MovePrevious
    MsgBox rs!動物名
    
    '先頭のレコード
    rs.MoveFirst
    MsgBox rs!動物名
    
    '先頭から2つ目のレコード
    rs.MoveNext
    MsgBox rs!動物名
    
    rs.Close
    db.Close
    
End Sub


● 補足説明 ●

　DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリック
すると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6
Object Library」をチェックします。