Mysticall

Sim, há conexão com um banco de dados .MDB, via objeto data. E o trecho que gera erro está abaixo, sendo que a linha selecionada pelo debug, é a linha dtaunidades.Refresh. If keyascii = 13 Then dtaunidades.RecordSource = "select tb_unidades.cod_uni, tb_unidades.nom_uni, from tb_unidades where nom_uni Like ' * " & txtpesquisa & " * ' order by tb_unidades.nom_uni" dtaunidades.Refresh dbgunidades.Visible = True dbgunidades.SetFocus endif valeu novamente, pessoal

Tente retirar seu comando "loop" e usar um "exit sub" para resolver a questão de movimentação do registro.

Desculpe-me o transtorno com este assunto. Tentei a sugestão que recebi no post porém continuo sem conseguir corrigir o problema. O erro que dá é o seguinte: Run-time error '3141': The select statment includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect. Mais uma vez, desculpem-me a insistência nesse tópico e obrigado pela ajuda. Mysticall