<<SET FILTER TO " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(fm);
 <<           OR " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(sm)

Boris which words have problem, with your codes nothing found, which word have not problem alos found.
thanks