[Resolvido]limpar formulário de pesquisa

Olá.
Tenho uma BD com um formulário pesquisa como apresentei em tópico:
https://www.maximoaccess.com/t25837-resolvidolimpar-pesquisa
https://www.maximoaccess.com/t25865-resolvidochamar-funcao-ignorar-acentos

Na parte limpar os itens de pesquisa, faz um de cada vez e não é instantâneo.

'botão limpar
Private Sub btn_limpar_Click()
Me.pesquisa_localidade.SetFocus
Me.pesquisa_localidade.Text = ""
Me.pesquisa_país.SetFocus
Me.pesquisa_país.Text = ""
Me.pesquisa_firma.SetFocus
Me.pesquisa_firma.Text = ""
Me.pesquisa_especialidade.SetFocus
Me.pesquisa_especialidade.Text = ""

Há alguma forma de limpar os campos de pesquisa em simultâneo e ficar setfocus em especialidade?
Obrigado.

Somente assim;

Código:

    Me!pesquisa_localidade = ""
    Me!pesquisa_país = ""
    Me!pesquisa_firma = ""
    Me!pesquisa_especialidade = ""
    Me!pesquisa_especialidade.SetFocus

Olá.
Alterei Nome de pesquisa especialidade,etc para pesquisa_especialidade,etc e dá tudo certo.
Obrigado.

Resolvido.