Caro Amigo
Vc Pode usar um listbox para mostrar os resultados, fica assim:
List1.Clear
bb1$ = "select * from 'nome da tabela no banco de dados' where 'nome do campo da tabela no banco de dados' like '*" & Trim(nome do textbox que vc vai usar para inserir os valores para busca) & "*'"
Set tabela = olddb.OpenRecordset(bb1$, dbOpenDynaset)
mortos.Sort = "nome do campo da tabela no banco de dados indexado "
Set NOVO = mortos.OpenRecordset()
If NOVO.RecordCount = 0 Then Beep: Beep: Beep: Beep: MsgBox "Item não Cadastrado.", 16, fext10: GoTo fim
NOVO.MoveMin
contar = NOVO.RecordCount
u = 1
For u = 1 To contar
If u = 1 Then GoTo dois
NOVO.Move 1
dois:
T1 = Trim(NOVO("nome do campo da tabela no banco de dados"))
vetor$ = Left(Trim(T1), 17)
Real = Real + 1
List1.AddItem vetor$
Next
XP! = List1.ListIndex + 1
Tet8 = List1.ListCount
fim:
End Sub
