[Resolvido]Erro ao pesquisar

Boa noite a todos, estou tentando adaptar o exemplo do nosso amigo do forum, mas está dando erro, não consegui resolver, conferi o código ma não encontro o erro, alguém poderia dar uma explicação e me dizer o que fiz errado?

sgue o link: https://www.dropbox.com/s/7bo4mxximctsw5f/Efetivo.accdb?dl=0

Obrigada Amandaalves

1º Esqueceu o Form_ 2º GRADU estava sem a letra U 3º o Botão limpar estava faltando o Form_

Código:

Form_subfrmPesquisaEfetivo.Form.RecordSource = "SELECT tblEfetivos.*" & _
                                                 "FROM tblEfetivos WHERE tblEfetivos.GRADU  Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.RE     Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.NOME Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.ADIMISSÃO   Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.NASC   Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.TELEFONE      Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.TELEFONE2      Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.TELEFONE3    Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.CELULAR1    Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.CELULAR2    Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblEfetivos.STATUS    Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "ORDER BY tblEfetivos.GRADU ;"

Bom dia, amigo Formiga10x

Muito obrigada pela ajuda será de grande valia no meu trabalho.

Vou prestar mais atenção, pois não tinha notado,  e olhe que fiquei procurando por um bom tempo.

Novamente muito obrigada.

Amandaalves

Ótima semana a todos