RecordCountプロパティを使うと、Recordsetオブジェクトでアクセスされた
レコード数を取得する事ができます。

　サンプルでは、選択クエリ「クエリ1」を実行して抽出されるレコード件数を
取得して、メッセージボックスに表示しています。

● サンプル　●

Sub DataCount()
    Dim rs          As Recordset
    Dim rsCount     As Double

    Set rs = CurrentDb.OpenRecordset("クエリ1")
    rs.MoveLast
    rsCount = rs.RecordCount
    
    MsgBox "クエリ1の実行結果" & vbCrLf & _
           rsCount & "件のレコードが抽出されました"

End Sub