Dで始まる関数(定義域集計関数)とDAOを比較します。
Count
DCount 関数
varCount = DCount("*", "テーブル1", "フィールド1 = 'XXX'")
RecordSet の RecordCount メソッド
strSql = ""
strSql = strSql & "SELECT "
strSql = strSql & " * "
strSql = strSql & "FROM "
strSql = strSql & " テーブル1 "
strSql = strSql & "WHERE "
strSql = strSql & "フィールド1 = 'XXX';"
Dim objRecordSet As DAO.Recordset
Set objRecordSet = Application.CurrentDb.OpenRecordset(strSql)
varCount = objRecordSet.RecordCount
objRecordSet.Close