como faço para usar a função auto completar usando um text1.text e um ListView

como assim, autocompletar.. explique direito.. nao entendi, talvez eu posso te ajudar...

Tenho um sistema todo em SQL estou usando um ListView para mostrar os dados

e assim quero fazer um sistema de busca que quando for digitado o nome da pessoa por exemplo: Anderson o resultado seria todos as pessoas com o primeiro nome Igual a busca esse é meu codigo que não dá certo.

 

Private Sub txtConsulta_Change()
On Error GoTo TrataErro:
    If bApagar Then
        Set rsLocal = bdLocal.Execute("Select * From tblFunc Where Nome Like '" & txtConsulta.Text & "%' Order By Nome")
   
    If Not rsLocal.BOF Then If txtConsulta.Text <> rsLocal("Nome") Then iTexto = txtConsulta.SelStart
            Set rsLocal = bdLocal.Execute("Select * From Clientes Where Nome Like '" & txtConsulta.Text & "%' Order By Nome")
            'sub_AtualizaGrid
            txtConsulta.Text = rsLocal("Nome")
            txtConsulta.SelStart = iTexto
            txtConsulta.SelLength = Len(txtConsulta.Text)
            'Exit Sub
        Else
            Set rsLocal = bdLocal.Execute("Select * From tblFunc Where Nome Like '" & txtConsulta.Text & "%' Order By Nome")
        End If
    sub_AtualizaGrid
TrataErro:
    If Err Then
        If Err = 91 Then
            Err.Clear
        ElseIf Err = 3021 Then
            Err.Clear
            iTexto = Len(Left(txtConsulta.Text, Len(txtConsulta.Text) - 1))
            txtConsulta.Text = Left(txtConsulta.Text, Len(txtConsulta.Text) - 1)
        Else
            MsgBox Err.Number & vbCrLf & Err.Description
        End If
    End If
End Sub