Problema con filtrado

[principefreddy]

Private Sub Cargar_Lista()

'Esto nos permitirá acceder a las tablas y a sus registros.
Dim rs As New ADODB.Recordset
Dim iEle As Integer
rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
'Ahora biene lo bueno...

'Limpiamos el objeto LISTVIEW...
lvLista.ListItems.Clear


While Not rs.EOF
'Se comporta como un archivo...
iEle = (lvLista.ListItems.Count) + 1

With lvLista

.ListItems.Add , , rs!codigo
.ListItems(iEle).SubItems(1) = rs!nacionalidad
.ListItems(iEle).SubItems(2) = rs!cedula
.ListItems(iEle).SubItems(3) = rs!Nombre
.ListItems(iEle).SubItems(4) = rs!sexo
.ListItems(iEle).SubItems(5) = rs!estadocivil
.ListItems(iEle).SubItems(6) = CLng(rs!edad)
.ListItems(iEle).SubItems(7) = rs!alias
.SelectedItem.Selected = False

End With

'Esto no debe faltar...
rs.MoveNext
'es para moverse entre los registros.

Wend

'cerramos el recurso.
rs.Close
'y lo destruimos o sacamos de la memoria...
Set rs = Nothing
End Sub