Código:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
With rs
.Close
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
' .Open "select * from MITABLA where MICAMPO like '" & "%MICRITERIOABUSCAR%" & "';"
End With
list1.additem rs(0) ' rs0 es el valor que hay en el primer campo del registro que coincida con el criterio de busqueda, (1 seria el segundo, 2 el tercero etc)
Este metodo funciona, perfectamente, la pregunta es, ¿como puedo mostrar TODOS los registros que coincidan con el criterio a buscar?


