Mas é que meu codigo é assim, e o ATFMR coloca os dados nas caixas de texto, dentro dele tem tipo isso: txtnome=tbl("Nome")

 

Private Sub List1_Click()
txtlocnome = List1
TBL.Seek "=", txtlocnome
If TBL.NoMatch Then
Else
ATFMR
End If

Sem vc definir o critério de pesquisa pelo codigo vai ser impossivel resolver este

problema.