今天在作delphi的时候，碰到一个数据库的问题。在一个"退出"按钮的单击事件中，要求退出时对数据库进行更新，同时关闭当前窗体。代码如下：
procedure TFormAddMore.BTNExitClick(Sender: TObject);
begin
try
 datamodule1.ADODataSet1.Refresh;
 datamodule.Notify_DataChange:=false;
finally
 close;
end;
end;
但在运行时单击该按钮却出现错误，错误如下：