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?