VBAで日付型とテキストでフィルタをかけるには？

テーブルのデータは
フィールド１
2012/1/1
2012/1/2
2012/1/3
2012/1/4
2012/1/5
2012/1/6
2012/1/7
2012/1/8
2012/1/9
2012/1/10

フィールド2
Ａ
Ａ
Ａ
Ａ
Ａ
Ｂ
Ｂ
Ｂ
Ｂ
Ｂ

です。

このクエリをもとに票フォームを作成して、
・txt_始まりテキスト
・txt_終わりテキスト
・txt_フィールド２テキスト
を作りました。

あとコマンドボタン（cmd_抽出）も作りました。

このコマンドボタンを押して
日付とテキストを抽出したいのですがＶＢＡでのやり方を教えてください。

クエリなら
------------------------------------------------------------
SELECT テーブル1.フィールド１, テーブル1.フィールド２
FROM テーブル1
WHERE (((テーブル1.フィールド１) Between #1/4/2012# And #1/6/2012#) AND ((テーブル1.フィールド２)="Ａ"));
でできました。
------------------------------------------------------------
しかしＶＢＡで
------------------------------------------------------------
Private Sub cmd_抽出_Click()
Me.Form.Filter = "フィールド１ Between #" & Me.txt_始まりテキスト.Value & "# And #" & Me.txt_終わりテキスト.Value & "#" & _
"' And フィールド２ like '*" & Me.txt_フィールド２テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
End Sub
------------------------------------------------------------
をすると、
------------------------------
実行時エラー3075
構文エラー：演算子がありません。
------------------------------
になります。

どうすればいいか教えてください。

結果は、
------------------------------
フィールド１フィールド２
2012/01/04Ａ
2012/01/05Ａ
------------------------------
です。

ご回答よろしくお願いします。

No.1 ベストアンサー 回答者： nag0720 回答日時： 2012/10/26 01:05

＞"' And フィールド２ like '*" & Me.txt_フィールド２テキスト.Value & "*" & "'"

Andの前の ' はなんのため？

この回答へのお礼

' をとったらうまくいきました！！！ありがとうございました。大変参考になりました。

お礼日時：2012/10/26 07:47