フォームのレコードソースの件数を取得するには、RecordCountプロパティ
を使います。

　RecordCountプロパティは、Recordsetオブジェクトでアクセスされたレコード数、
またはテーブルタイプのRecordsetオブジェクトかTableDefオブジェクトのレコード
総数を返します。

　サンプルプロシージャは、フォームが開くときに、最初のレコードが表示される
前に発生するイベント「Open」で、レコードソースの総件数を取得して
ラベルの「標題」プロパティに設定しています。

● サンプル　●

Private Sub Form_Open(Cancel As Integer)
    Dim rs As Recordset
    
    Set rs = Me.RecordsetClone
    Me!ラベルレコード数.Caption = rs.RecordCount
    
End Sub

● 詳細 ●

　RecordsetCloneプロパティは、フォームの「レコードソース」プロパティに設定
されているテーブルまたはクエリのRecordsetオブジェクトを参照します。

● 補足説明 ●

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