Buscar y mostrar resultados en Listview

[jeaguiar25]

Te paso el codigo completo:

Desde aquí llamo al form
_________________________
Private Sub Buscar_Click(Index As Integer)
Call Buscar1
End Sub

Private Sub Buscar1()
With Form_Buscar
.TipoBusqueda = "Nombre"
.LblBuscarPor.Caption = "Buscar Usuario Por: Nombre"
.Caption = "Busqueda por Nombre"
.Show 1
End With
End Sub
______________________________
y este es el codigo completo del form (en el cual tengo solo el listview y con textbox)

Option Compare Text
Public TipoBusqueda As String

Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Const sPathBase As String = "C:\Genexis\Datos.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sPathBase & ";"
.Open
End With
End Sub

Public Sub RellenarLista()
Dim strVALOR_BuscarNombre As String
Dim Consulta01 As ADODB.Recordset
Dim li As ListItem
Set Consulta01 = New ADODB.Recordset
strVALOR_BuscarNombre = TextBuscar.Text
If TipoBusqueda = "Nombre" Then
Consulta01.Open "SELECT DISTINCT * FROM Personas WHERE Nombre like '%" & strVALOR_BuscarNombre & "%'", cnn, adOpenStatic, adLockReadOnly
Do Until Consulta01.EOF
Set li = ListView1.ListItems.Add(, , Consulta01("ID_Agenda"))
li.ListSubItems.Add , , Consulta01("Nombre")
li.ListSubItems.Add , , Consulta01("Domicilio")
li.ListSubItems.Add , , Consulta01("Num")
li.ListSubItems.Add , , Consulta01("Apto")
li.ListSubItems.Add , , Consulta01("Telefono")
li.ListSubItems.Add , , Consulta01("Celular")
li.ListSubItems.Add , , Consulta01("Departamento")
li.ListSubItems.Add , , Consulta01("Observaciones")
Consulta01.MoveNext
Loop
End If
End Sub

Private Sub TextBuscar_Change()
Call RellenarLista
End Sub

Private Sub TextBuscar_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("'") Then KeyAscii = 0
End Sub

Private Sub Cerrar_Click()
Unload Me
End Sub
Me sigue dando el mismo problema. Como siempre gracias por tu preocupación y ayuda