Hola, para estos casos es mejor utilizar una consulta WHERE:
Dim strSQL As String
strSQL = "SELECT * FROM LaTabla WHERE NombreCampo = '" & destsearch & "'"
Set DATOS = DB.OpenRecordset(strSQL)
y a continuación cargas el recordset en la grilla.
En tu código el error está en esta línea:
DATOS.FindFirst "destsearch"
debe ser:
DATOS.FindFirst "NombreCampo='" & destsearch & "'"
Igualmente para FindNext
Un saludo
