Buscar y mostrar resultados en Listview

[jeaguiar25]

Hola a todos!!!!
Mi problema es el siguiente:
Tengo una agenda hecha con VB6, pero al tratar de instalarla en otro pc, por más que haga un paquete de instalación con el "Asistente de empaqutado" , me da un error con los ocx del DataGrid. Por lo cual opté por cambiar el DataGrid por un Listview. El Listview se encuentra en un Form donde solo hay además de él un Textbox llamado TextBuscar. Mi intención es que al ir rellenando el texbox en el Listview se muestren las coincidencias. La sentencia que realice busca en una columna de un (.mdb) llamada "Nombres", tabla "Personas" y archivo "datos". Mi sentencia es la siguiente:

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 * 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.MovePrevious

Loop
End If
End Sub
Mi problema: Al digitar en el Textbox me muestra la coincidencia tantas veces como coincidencia de caracteres.
Ej:
Si digito juan en el textbox, me muestra en el listview:

juan
juan
juan
juan
julio
julio
justo
justo
josé
Espero puedan ayudarme, un abrazo a todos......