DAO エクセルｖｂａからアクセスのレコードの件数

DAOで、エクセルｖｂａからアクセスのレコードの件数を取得したいのですが

Dim ac As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set ac = CreateObject("Access.Application")
Set db = ac.DBEngine.OpenDatabase("D:\あああ.accdb", False, True)

Set rs = db.OpenRecordset("SELECT * FROM Tマスタ WHERE masterkey like '*四*';")
i = rs.RecordCount

Debug.Print rs("masterkey")

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
ac.Quit: Set ac = Nothing

をすると、抽出するレコードが１０００件でも、必ず１が返ります。
masterkeyフィールドは文字列型です。

なぜ実際はたくさんのレコードがあるのに、１が返るのでしょうか？

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/12/19 23:59

こちらをどうぞ。

DAOでレコード件数をカウントする方法
http://www.nurs.or.jp/~ppoy/access/access/acM044 …

この回答へのお礼

ありがとうございました。

お礼日時：2013/12/30 21:28