Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Estoque.Mdb", False, False)
query = "SELECT* FROM Cadastro order by E12"
Set dyn = xxbco.OpenRecordset(query)
dyn.MoveMin 'temque colocar essa linha
While Not dyn.EOF
If (dyn("E12")) = (Text1.Text) Then