accessのvbaでの実行時エラーについて

質問

いつもお世話になっております。

Accessのvbaで下記のコードを実行して、データを
取得したいのですが、OpenRecordsetのところで

「実行時エラー'3615'
式で型が一致しません。」

というエラーがでてしまいます。

ーーーーーーーーーーーーーーーーーーーーーーー
Dim db As Database
Dim Rec As Recordset
Dim strSql As String

strSql = "SELECT 入金日 FROM 入金チェック WHERE ID IN(SELECT ID FROM 入居者管理 WHERE 物件名 = '" & 　strBukken & "')"

Set db = CurrentDb()
Set Rec = db.OpenRecordset(strSql)
ーーーーーーーーーーーーーーーーーーーーーーー

副問合せのしかたがまずいのか、
どうもよくわかりません。

お手数ですが、お分かりの方がおられましたら
ご教示お願いいたします。

回答No.1

めとろいと（@naktak） · ベストアンサー

ツールの参照設定から「Microsoft DAO X.X Object Library」を選択して下さい。

文を以下のように変更して下さい。

Dim db As DAO.Database
Dim Rec As DAO.Recordset
Dim strSql As String

strSql = "SELECT 入金日 FROM 入金チェック WHERE ID IN(SELECT ID FROM 入居者管理 WHERE 物件名 = '" & 　strBukken & "')"

Set db = CurrentDb()
Set Rec = db.OpenRecordset(strSql)

お礼

naktak様

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

参照設定はしてあるのですが、

Dim db As Database
Dim Rec As Recordset
　　　　↓
Dim db As DAO.Database
Dim Rec As DAO.Recordset

としてみました。
しかし、現象は変わらずです。

引き続きお気づきの点、ございましたら
ご指摘お願いいたします。