[Resolvido]Run-time error 2465

Olá

tenho o seguinte código para filtrar em form continuo e com opção de filtro :

Código:

Private Sub txtpesquisa_Change()
Select Case Me!mdlOpcao
    Case 1
        strFiltro = "Categoria LIKE '*" & Me.txtpesquisa.Text & "*' "
    Case Is = 2
        strFiltro = "Nome LIKE '*" & Me.txtpesquisa.Text & "*' "
    End Select
        Me.[frmSubConsAquisicaoBensServicos].Form.RecordSource = "SELECT * FROM consAquisicaoBensServicos WHERE " & strFiltro
End Sub

sendo que da erro ao tentar digitar na caixa de pesquisa :
Run-time error 2465 Não consegue localizar ocampo "|1" referenciado na expressão.

E tenho num outro form o código a trabalhar...

Um bem hajam. Obrigado

Achei por bem deixar parte do projecto !
Obrigado

frmConsAquisicaoBensServicos

Cx. Opção e deipois escrever na cx de pesquisa.