Procura formulário atualização 1 letra

Bom dia

Estou com um erro na pesquisa de caixa de texto em um formulário, ao usar o filtro em VBA está atualizando e aceitando apenas uma letra no campo

Queria apenas que ao digitar automaticamente pesquisa conforme for escrevendo

Ficaria muito grato se alguem puder verificar o que há de errado

É um banco de dados que apenas fiz as estruturas das tabelas, e estou começando a ajustar a programação, nunca mexi com acess, mas parece ser muito fácil, somente n entendi o erro que está dando

Segue em anexo o modelo do banco de dados

Obrigado

*OBS: está no formulário fContato, que carregas dadados da consulta qContatoTodos que obtem dados da tabela tCliente e tContato

Código pesquisa:

Código:

Private Sub cxPesquisar_Change()
Me.Filter = "nome like '*" & Me.cxPesquisar.Text & "*'"
Me.FilterOn = True

Dim filtro As String
If Len(Me.cxPesquisar.Text & "") = 0 Then
    Me.Form.Filter = ""
    Me.Form.FilterOn = False
    Exit Sub
Else
filtro = "[nome] like '*" & Me.cxPesquisar.Text & "*'"
Me.Form.Filter = filtro
Me.Form.FilterOn = True
End If
End Sub

Bom dia
Está a seleccionar o campo inteiro porque assim está escolhido nas opções do Access
Para alterar vá a Ficheiro > Opções > Definições do Cliente > Comportamento ao entrar no campo e mude a escolha