Microsoft Access 掲示板

上記7番にて、以前いただいた投稿に返信したのですが
新しい投稿がわかりづらいかもしれないため、改めて下に追記させていただきます。
スミマセン。（コードブロックも間違えておりました）
↓　↓
以前教えていただいた検索フォームを作成中です。
そこで、教えていただいたサイトを参考に下記コードを作成しましたが、うまく動きません。

    Dim strFilter As String, strExp As String, aryOpe As Variant
'途中省略     
 
If Not IsNull(Me.txt伝票NO) Then
         strFilter = strFilter & " AND " & BuildCriteria("伝票NO", 10, "" & Replace(Me.txt伝票NO, vbCrLf, " And ") & "")

    End If
         DoCmd.OpenForm "F_案件", acNormal, "", "Mid(strFilter,10)", , acNormal

End Sub

①txt伝票NOに、改行区切りで入れられた複数の伝票NOについて
全て検索する。
②伝票NOは短いテキスト。

上記のコードを使うと「strFilter」のパラメータを聞いてきます。
エラー行は
        DoCmd.OpenForm "F_案件", acNormal, "", "Mid(strFilter,10)", , acNormal　です。