クエリやレコードの全件数を取得する方法
Private Sub Form_Load()Dim Cnt As Long
Cnt = DCount("*", "クエリまたはテーブル名")
Me.Kensu = Cnt
End Sub