「’3061’ パラメータが少なすぎます。2を指定してください。」のエラーとなり困ってます。

Question

「住所Ｑ」クエリでは実行できるのですが、別な選択クエリで実行すると「Set RS = RS.OpenRecordset()」が黄色となり「’3061’　パラメータが少なすぎます。2を指定してください。」のエラーとなります。

選択クエリの問題かと思いフ３個のフィールドのみ選択してみましたが同じエラーでした。

対処方法を教えて下さい。

宜しくお願い致します。

Dim DB As DAO.Database

Dim RS As DAO.Recordset

Dim i As Integer 

     Set DB = CurrentDb

     Set RS = DB.OpenRecordset("住所Ｑ")

     FILE = Me.[工事日]

     FILE = "[番地1]='" & FILE & "'"

     RS.Filter = FILE

    Set RS = RS.OpenRecordset()

     If RS.RecordCount = 0 Then

                MsgBox "該当するレコードは見つかりません"

             Else

                Do Until RS.EOF

                    MsgBox RS![町名(漢字)]

                  RS.MoveNext

                Loop

             End If

     RS.Close: Set RS = Nothing

End sub

Answer 1

DAO 　⇒　ＡＤＯ　に変更したところエラーは出ませんでした。

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

質問を削除しようとしましたができませんでした。（スミマセン）