レコードセットした値の最初のレコードを参照する際には

MoveFirst　を使用します。









Private Sub レコードセット_Click()

    Dim db As Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb
   
    Set rs = db.OpenRecordset("select * From T_会員", dbOpenDynaset)
    
    'レコードセットの最初のレコードを参照します
    rs.MoveFirst
   
    MsgBox (rs!名前姓 & rs!名前名)
   
    rs.Close
    Set rs = Nothing
   
    db.Close
    Set db = Nothing
End Sub

上記の例がレコードセット最初のレコードを参照するコードです、

レコードセットの最後のレコードを参照する場合には

rs.MoveFirst　　の部分を　　rs.MoveLast 　を使用して下さい。

rs.RecordCount  　を使用することでレコードセットした件数を取得することができます。


レコードセットは大変役立つ場面が多いと思いますので色々と試してみて下さい