veja como faço
apenas altere sua conexão de
Set rst = db.OpenRecordset("Funcionarios", dbOpenDynaset)
agora coloque no textbox
Private Sub txtbusca_Change()
If rst.RecordCount <> 0 Then
ListView1.ListItems.Clear
rst.FindMin "campo_a_ser_pesquisado like'" & txtbusca.Text & "*'"
Do While rst.NoMatch = False
Set lista = ListView1.ListItems.Add(, , rst("Campo_1"))
lista.SubItems(1) = rst("campo_2")
lista.SubItems(2) = rst("Campo_3")
rst.FindNext "campo_a_ser_pesquisado like'" & txtbusca.Text & "*'"
Loop
End If
End Sub
Bom altere os campos colocando o nome dos campos de sua tabela, o código acima vai listando os nomes conforme for digitando.
