Busqueda dentro de base de datos

[acc008]

Cambie la consulta pero me sigue devolviendo el valor exacto.. aca esta mi form_load:

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM Datos WHERE Destino LIKE '*" & Destsearch & "*'"

Set DATOS = DB.OpenRecordset(strSQL)
Grilla.Rows = 1
Grilla.FormatString = "ID |Destino |Codigo |Precio "

DATOS.FindFirst "Destino='" & Destsearch & "'"

Do Until DATOS.NoMatch

Grilla.AddItem DATOS!ID
Grilla.TextMatrix(Grilla.Rows - 1, 1) = DATOS!destino
Grilla.TextMatrix(Grilla.Rows - 1, 2) = DATOS!codigo
Grilla.TextMatrix(Grilla.Rows - 1, 3) = DATOS!Precio

DATOS.FindNext "Destino='" & Destsearch & "'"

Loop

End Sub


Aclaro q a la variable Destsearch la tengo declarada en un modulo como String y le asigno un valor desde un Text.Value de otro formulario