Função find em qualquer posição

Boa tarde a todos,
Tenho um campo que estou usando a função findfirst, para localizar o primeiro nome, no campo [nomecliente], porém gostaria de usar a função para encontrar em qualquer parte desse campo, por exemplo, encontrar o nome joão em qualquer parte do campo:
Pedro João Barbosa;
João Pedro Martins;

Poste a rotina completa para vermos como está fazendo que ajuda.

Criquio, bom dia.

O usuário fará cadastro de ocorrências que funcionam da seguinte forma:
O usuário registra (no formulário "Cópia de FOcorrencia" - temporário) o funcionário que apresentou a prova da ilegalidade, dentre outros campos a serem preenchidos encontra-se "operador" (CboxOperador) e "cliente" (IdClienteOperador). Fiz um "piloto" usando o evento NotInList e funcionou bem, o problema é no nome da empresa (operador/cliente), pois se o usuário digitar "Paulo Figueredo" e estiver cadastrado Banco João Paulo Figueredo Arantes, não vai aparecer na lista (CboxOperador e/ou IdClienteOperador), então queria montar uma busca no campo completo. Em outro formulário (Fempresas) eu uso o código que busca o primeiro nome (FindFirst), como demonstrado:

Código:

On Error Resume Next
    Dim rs As Recordset
    If IsNull([txt_procura]) Then Exit Sub
    Set rs = Me.Recordset.Clone
        rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
        If rs.NoMatch Then
            MsgBox "Não existem Clientes com este Nome (Parte do Nome)!!!"
        Else
            rs.FindNext "[NomeCliente] Like '" & Me.txt_procura & "*'"
            If rs.NoMatch Then
                rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
                Me.Bookmark = rs.Bookmark
            Else
                DoCmd.OpenForm "FEmpresasBusca", , , , , , 1
                Forms![FEmpresasBusca]![KeepNome] = Me.txt_procura & "*"
                Forms![FEmpresasBusca]![LstBuscaCliente].Requery
            End If
        End If


Outro ponto importante é se a empresa não for encontrada será adicionada uma nova empresa e atualizado o campo (já funciona com o recurso "requery").
Grato pela atenção.

Alguns pontos importantes:

1 - Não anule mensagens de erros com On Error Resume Next ou outro enquanto o aplicativo não estiver pronto, pois, caso ocorra erro, você nunca saberá o que e aonde porque não tem mensagens de erros para lhe informar;

2 - Quando usar If com mais de uma condição, o Else deve ser colocado entre essas condições:

Código:

If Condição = True Then
    Exit Sub
Else
    Faça alguma coisa
End If


3 - Não tem ponto entre Recordset e Clone;

4 - Para procurar em qualquer parte do campo, tem que ter asterisco antes e depois do nome do campo da pesquisa:

LIKE '*" & Me.CampoPesquisa & "*'

Veja se com isso consegue progredir.

Criquio, boa noite.
Agradeço as orientações. O formulário FEmpresas está funcionando perfeitamente, assim como o formulário de busca FEmpresasBusca também. A sua ajuda foi fundamental no processo!
O problema está acontecendo no formulário de ocorrência (FOcorrencia), pois tenho dois campo que uso a propriedade NotInList (CboxOperador e IdClienteOperador), mas gostaria que busca funcionasse conforme o campo Txt_procura presente no formulário FEmpresas que encontra a palavra em qualquer parte do campo. Como hoje uso a propriedade NotInList ele busca somente para o primeiro nome. Tentei transformar o campo CboxOperador (formulário Ocorrência) para caixa texto e usar funcionalidade da busca de empresa, mas sem sucesso. Você acha que tem como executar a busca em qualquer parte do campo e trazer para o formulário. Lembro que existe um relacionamento entre duas tabelas (Empresas e Ocorrencia).
Antecipo meus agradecimentos.

Não entendi muito bem. Em se tratando de combo, o Not Inlist irá procurar o termo completo do campo o qual a coluna da combo representa. A combo pode ser alterada para ir filtrando a linha e mostrando os registros correspondentes à parte digitada.

Boa noite Criquio,
Então eu preciso fazer uma busca em qualquer parte do nome da empresa (cliente ou operador), campos CboxOperador e IdCliente. Hoje eu uso o recurso da Combox (Not Inlist) e consigo pesquisar apenas o primeiro nome, uma vez que ocultei o campo da chave primária (coloquei o tamanho do campo como zero, seguido do campo nome de empresa - FOcorrencia, CboxOperador e IdCliente). Minha dúvida é como fazer a busca em qualquer parte do nome da empresa (por exemplo João Paulo e Paulo João) e se encontrar o nome voltar como com o resultado para o formulário/tabela (Ocorrencia), caso não encontre abrir outro formulário chamado FEmpresas.
É o mesmo procedimento que acontece no formulário FEmpresas (no campo txt_procura), porém o resultado tem que alimentar a tabela Ocorrencia. Não sei se é possível pesquisar em todo o campo (Like *Empresa![IdCliente*, por exemplo ) usando uma Combox? E se não for possível como fazer para receber a chave primária da tabela Empresa.
Não sei se compliquei mais ainda, caso não entenda vou tentar posso desenhar o processo para você.
Um forte abraço

Nesse caso o mais prático seria usar uma listbox que iria sendo filtrada à medida que se digita a pesquisa em um campo. Vamos chamar esse campo de txtPesquisa e a listbox de lstClientes.

No evento "Ao alterar" do campo txtPesquisa:

Código:

Me.lstClientes.RowSource = "SELECT Código, Nome FROM NomeDaTabela WHERE Nome LIKE '*" & Me.txtPesquisa.Text & "*'"


Código e Nome seriam os dois campos da tabela em duas colunas da listbox.

Criquio, bom dia.
Os campos funcionaram bem, porém quando digito no campo de pesquisa (txtpesquisa) a palavra Bradesco aparece na LstCliente o Banco Bradesco e fica selecionada a empresa para os registros futuros, ainda que eu clique em novo registro (de ocorrencia) e o campo TxtPesquisa fique em branco ao abrir um registro novo aparece apenas o Banco Bradesco. Percebi que no novo registro se eu digitar qualquer letra e apagar a listagem volta a ficar completa?
Um forte abraço e muito obrigado pela dica.