[Resolvido]Erro no Formulário Pesquisa se usar a tecla SHIFT

Boa tarde. Mais um erro em meu BD que não consigo achar a solução.
Tenho um formulário de pesquisa que me busca os serviços digitando qualquer parte do texto e me retorna todos os serviços com aquele texto.
Ocorre que se por acaso digitar a tecla Shift para inserir letra maiúscula no campo de pesquisa ele apresenta um erro que não encontro a solução. Segue abaixo imagem do erro.
Alguém pode me ajudar?



Com CAPS LOCK ativo ou não funciona normal. Porém se apertar Shift e uma letra aparece esse erro.
Grato

Olá..

Anexe o codigo que usa para pesquisar ou partes do bd, assim é mais fácil corrigir o erro.

Aguardamos

Abraços

Exatamente Marcelo. Uso o código abaixo

"Private Sub TxtPesq1_Change()
Me.Recalc
SendKeys "{F2}"
End Sub"

Porém como não conheço a programação e estou iniciando, poderia me orientar como substituir?
Sem o código não consigo digitar a palavra. O Campo reinicia sempre na primeira letra.
Grato

Ok, obrigado
segue BD
A questão está no formulário FrmPesqServ
Grato

Boa tarde Marcelo
Muito Obrigado. Além de resolver a questão ficou muito melhor do que estava. E com sua orientação na descrição, consegui entender a sintaxe e o conceito que irei aplicar a outros formulário. Grato

Estou com este mesmo problema na consulta mais não entendi como solucionar este problema pois sou novo no access,
no meu casa a tecla Num Lock do teclado também desabilita sem que eu clique nela.

Deu certo assim

Private Sub txtPesquisa_Change()
If varespaco = 1 Then
varespaco = 0
Else
Me.Recalc
Me.txtPesquisa.SetFocus
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "{f2}"
End If
End Sub