EdisonЗвиняюсь...

Поиск по имени:
SELECT vod
SET ORDER TO name
if SEEK (ALLTRIM(thisform.text3.Text))
thisform.grid1.setfocus
thisform.refresh
thisform.text3.Visible = .f.
thisform.command3.Visible = .f.
thisform.text3.value=''
else
if !SEEK (ALLTRIM(thisform.text3.Text))
=messagebox("Такой записи не существует"+chr(13)+ " Введите другие значения",;
0+11+0,"Предупреждение")
thisform.text3.value=''
thisform.refresh
endif
endif

Поиск по году:
SELECT vod
SET ORDER TO data_do
if seek (ALLTRIM(thisform.text5.text))
thisform.grid1.setfocus
thisform.refresh
thisform.text5.Visible = .f.
thisform.text5.value=''
thisform.command5.Visible = .f.
thisform.text5.value=''
else
if !seek (ALLTRIM(thisform.text5.text))
=messagebox("Такой записи не существует"+chr(13)+ " Введите другие значения",;
0+11+0,"Предупреждение")
thisform.text5.value=''
thisform.refresh
endif
endif
Немного не по теме, а просто по приведенному коду.
Зачем Вы два раз проводите поиск: один раз в If , другой раз в else[/]. Ибо если Seek(...) вернет false, то автоматичски выполнится блок else...
И Ваш повторный поиск в else - попросту ненужная трата ресурсов...

Теперь по теме.
Не может быть такого (я пока не встречал), чтобы в скомпилированном (ехе)приложении не работали функции, которые работали в нескомпилированном (fxp) виде. Вероятно, где-то происходит ввод "левых" значений в перемнную поиска.
Так что, дебаггер Вам в помощь....