ADO フィルタ 変数

質問

Sub test()
Dim 月 As Long
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.FullName
rs.Open "Tテーブル", cn, adOpenStatic, adLockPessimistic
月 = 5
rs.Filter = " 処理日 = '" & #"& 月 &"/29/2009# & "'"

MsgBox rs.RecordCount
Set rs = Nothing
Set cn = Nothing
End Sub

のように月に変数を入れ、フィルタをかけたいのですが
上記のコードでエラーになってしまいます。
アドバイスよろしくお願いします。

回答No.1

mitarashi · ベストアンサー

CurrentProjectをお使いという事は、Access上で実行するのだと思いますが、とすると下記で良いと思います。
Sub test()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim 月 As Long

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "Tテーブル", cn, adOpenStatic, adLockPessimistic
月 = 5
rs.Filter = "処理日= #" & CStr(月) & "/29/2009#"
MsgBox rs.RecordCount
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

お礼

すいません、
これではできませんでした、、、

補足

と思ったらできました！
ご回答ありがとうございます。

回答No.2

30246kiku

rs.Filter = " 処理日 = '" & #"& 月 &"/29/2009# & "'"

↓以下の変更でどうなりますか

rs.Filter = " 処理日 = #" & 月 & "/29/2009#"

お礼

ご回答ありがとうございます。できました。