Пытаюсь добавить данные (InterBase)

Пытаюсь добавить данные (InterBase) через sql выдаёт ошибку
Cannot perform this operation on an open dataset interbase
я уже измучился чесно говоря вот код sql запроса

Code:

INSERT INTO SOTRUDNIK
(FAM, IMA, OTCH, ADRES, TEL)
VALUES
(:parFAM, :parIMA, :parOTCH, :parADRES, :parTEL)

вот файлы проекта (база+приложение)
http://www.sendspace.com/file/km2sgf

 

Операцию над открытой таблицей недопустимую производишь(например,имя таблицы меняешь открытой), и, скорее всего, сам запрос тут ни причём.

P.S. Выкладывай кусок кода в следующий раз, в котором ошибка выскакивает - мало кому захочется перелопачивать весь проект

 

fmain.IBSAdd.Params.ParamByName('parFAM').Value:=edit1.Text;
fmain.IBSAdd.Params.ParamByName('parIMA').Value:=edit2.Text;
fmain.IBSAdd.Params.ParamByName('parOTCH').Value:=edit3.Text;
fmain.IBSAdd.Params.ParamByName('parADRES').Value:=edit4.Text;
fmain.IBSAdd.Params.ParamByName('parTEL').Value:=edit5.Text;
try
fmain.IBSAdd.ExecSQL;
except
fmain.IBTransaction1.RollbackRetaining;
showmessage ('Ошибка при добавлении');
close;
exit;
end;
fmain.IBTransaction1.CommitRetaining;
fmain.IBSotr.Close;
fmain.IBSotr.open;


ошибка на fmain.IBSAdd.ExecSQL;

вот тема где еще обсуждаю данную проблему
http://www.sql.ru/forum/actualthread.aspx?bid=2&tid=858600