Bueno, parece que el problema está en la propiedad RecordCount que solamente devuelve un registro, prueba así:
Búsqueda por aproximación:
Código vb:
Ver originalPrivate 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 = 1
.Cols = DATOS.Fields.Count
.FixedCols = 0
For i = 0 To .Cols - 1
.TextMatrix(0, i) = DATOS.Fields(i).Name
Next i
i = 1
Do Until DATOS.EOF
.Rows = .Rows + 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = DATOS(j) & ""
Next j
DATOS.MoveNext
i = i + 1
Loop
End With
End Sub
En la búsqueda exacta, sólo tienes que cambiar la sentencia:
strSQL = "SELECT * FROM Datos WHERE destino = '" & Destsearch & "'"
Lo demás, todo igual a lo anterior.
Saludos
