Puse el que tu me pasaste. solo le cambie el nombre de la tabla y el campo:
Código:
Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM Datos WHERE destino LIKE '*" & Destsearch & "*'"
Set DATOS = DB.OpenRecordset(strSQL)
Dim i As Integer, j As Integer
With Grilla
.Rows = DATOS.RecordCount + 1
.Cols = DATOS.Fields.Count
.FixedCols = 0
For i = 0 To .Cols - 1
' poner en el encabezado el nombre de los campos
.TextMatrix(0, i) = DATOS.Fields(i).Name
Next i
For i = 0 To DATOS.RecordCount - 1
' listar los registros en el grid
For j = 0 To .Cols - 1
.TextMatrix(i + 1, j) = DATOS(j) & ""
Next j
DATOS.MoveNext
Next i
End With
End Sub
y aqui estan las variables declaradas en un modulo:
Código:
Public Destsearch As String
Public DB As dao.Database
Public DATOS As dao.Recordset