Postada em 2/9/2004 por BRTS List1.Clear Dim lst As String Data1.Recordset.FindFirst "CampoBusca like'" & Text1.Text & "'" lst = Data1.Recordset.Fields(0) List1.AddItem lst
Do Data1.Recordset.FindNext "campoBusca like'" & Text1.Text & "'" If Data1.Recordset.NoMatch Then GoTo fim lst = Data1.Recordset.Fields(0) List1.AddItem lst Loop Exit Sub fim:
