Buscar y mostrar resultados en Listview

[lokoman]

AAHH!! Debes de limpiar el ListView antes de cargarlo con los datos:

Código vb:

If Consulta01.EOF = False Then ListView1.ListItems.Clear
 

Aqui esta el codigo:

Código vb:

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
        
        If Consulta01.EOF = False Then lsvList.ListItems.Clear
        
        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