Microsoft Access 掲示板

以前教えていただいた検索フォームを作成中です。
そこで、教えていただいたサイトを参考に下記コードを作成しましたが、うまく動きません。

""" 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
"""

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

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