Microsoft Access 掲示板

フォームのフィルターは以下をボタンに埋め込んでいます。

Private Sub 絞込みボタン_Click()

    Dim strFilter As String

    '[材質・メーカー]の条件の指定
    If Nz(Me![コンボボックスＡ], "") <> "" Then
         strFilter = strFilter & _
                     " AND (CSVエクスポート_クエリ.[材質] Like '" & Replace(Me![コンボボックスＡ], "'", "''", , , vbBinaryCompare) & "')"

    End If

    '[発注先]の条件の指定
    If Nz(Me![コンボボックスＢ], "") <> "" Then
         strFilter = strFilter & _
                     " AND (CSVエクスポート_クエリ.[仕入先] Like '" & Replace(Me![コンボボックスＢ], "'", "''", , , vbBinaryCompare) & "')"

    End If

    '先頭の" AND "を取り除く
    strFilter = Mid(strFilter, 6)

    'フィルター条件がひとつでもあったら
    If strFilter <> Null Or strFilter <> "" Then
        'フィルター条件の設定
        Me.Filter = strFilter
        'フィルターの実行 (もしくは解除)
        Me.FilterOn = (strFilter <> "")

    'フィルター条件がなにもなかったら、レコードを全件非表示にする
    Else
        Me.Filter = "False"
        Me.FilterOn = True
    End If
End Sub

これと同じことを、全く同じフィールドを持つ別のクエリを作り、抽出条件に書こうとしています。その後クエリを実行してtxtファイルにエクスポートしようとしています。
よろしくお願いします。