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 · ベストアンサー

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

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

お礼

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