Cargar Listview con Select From

[lokoman]

Hola!!

Intenta así:

Código vb:

Private Sub Cargar_Listado_Click()
    Dim strVALOR_DOCUMENTO As String
    Dim rsConsulta As ADODB.Recordset
    Dim li As ListItem
    
    Set rsConsulta = New ADODB.Recordset
    strVALOR_DOCUMENTO = Text1.Text
    
    If rsConsulta.EOF = False Then
        rsConsulta.Open "SELECT * FROM ListadeEspera WHERE Documento = " & strVALOR_DOCUMENTO, cnn, adOpenDynamic, adLockBatchOptimistic
        
        Do Until rsConsulta.EOF
            rsConsulta.MoveFirst   'Nos movemos al principio del Recordset.
            Set li = ListView1.ListItems.Add(, , rsConsulta!ID)
            li.ListSubItems.Add , , rsConsulta!FechaIngreso
            li.ListSubItems.Add , , rsConsulta!Especialidad
            li.ListSubItems.Add , , rsConsulta!Observaciones
            rsConsulta.MoveNext    'Pasamos al siguiente registro.
        Loop ' Fin del "Do Until rsConsulta.EOF"
    
    End If ' Fin del "If rsConsulta.EOF = False Then"
End Sub