Cargar Listview con Select From

[jeaguiar25]

Tengo una nueva pregunta para aquellos que saben más. Lokoman me ayudo con una sentencia para no ingresar dos veces un usuario en una lista, bueno la reformule para que me carge un listview, pero me carga todos los usuarios en la tabla y no el que especifico, la que uso es esta:

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 rst.EOF = False Then
rsConsulta.Open "SELECT * FROM ListadeEspera WHERE Documento = " & strVALOR_DOCUMENTO, cnn, adOpenDynamic, adLockBatchOptimistic
Do Until rst.EOF
rst.MoveFirst 'Nos movemos al principio del Recordset.
Set li = ListView1.ListItems.Add(, , rst("ID"))
li.ListSubItems.Add , , rst("FechaIngreso")
li.ListSubItems.Add , , rst("Especialidad")
li.ListSubItems.Add , , rst("Observaciones")
rst.MoveNext 'Pasamos al siguiente registro.
Loop
End If
End Sub
A quien me pueda ayudar muchas gracias de antemano.