Eu fiz um botão Localizar por nome em banco de dados e todos os registros teriam que aparecer no List depois do list exibia em seus determinados campos.
Botão Localizar:
If Op_Nom.Value = True Then
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:InstallNuinfNathaliaSupermercadosuper.mdb")
Set tb = db.OpenRecordset("select Nm_Cli from Cliente where Nm_Cli like '" & Loc_Cli.Text & "*'")
End If
Do While tb.EOF = False
List1.AddItem (tb("Nm_Cli"))
tb.MoveNext
Loop
List1.List
Set tb = db.OpenRecordset("Select * from Cliente where Nm_Cli = '" & List1.List(List1.ListIndex) & "'")
Nm_Cli.Text = tb("Nm_Cli")
Rg_Cli.Text = tb("Rg_Cli")
Cpf_cli.Text = tb("Cpf_Cli")
Dt_Nasc.Text = tb("Dt_Nasc")
Endereço.Text = tb("Endereço")
cidade.Text = tb("Cidade")
Tel_Cli.Text = tb("Tel_Cli")
vê se vc consegue entender... e vê se isso te ajuda qualquer coisa pergunte de novo.ok?
