VB初心者質問スレPart2

>>557
Dim SQL As String
Dim rsCOUNT as Recordset
SQL = "SELECT COUNT(*) AS 件数 FROM テーブル名 WHERE 条件"
Set rsCOUNT = dbHANBAI.OpenRecordset(SQL)

こうすればrsCOUNTっていうレコードセットが生成されて、件数っていうフィールドにレコード数が入ってるはずです。
つまり、rsCOUNT!件数で取得できますよ。