テーブルのレコード件数を取得するためには、RecordCountプロパティを
使います。
　サンプルプロシージャは、カレントデータベースの「顧客テーブル」の
総レコード件数を取得します。

● サンプル　●

Sub Sample()
    Dim rs As Recordset
    
    Set rs = CurrentDb.OpenRecordset("顧客テーブル")
    
    MsgBox "顧客テーブルには" & rs.RecordCount & "件のレコードがあります"
    
End Sub


● 補足説明 ●

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