VFP6连编后能打开程序，关闭时提示“程序错误：文件正在使用”

我主程序代码如下：
————————————
*-防止程序重复运行的代码
DECLARE   Integer   FindWindow   in   Win32Api   String,   String
wclass=0
winname= "查询 "
apphand   =   FindWindow(wclass   ,winname)
IF   apphand <> 0
Messagebox( "程序已经运行！ ",48, "系统信息 ")
Quit
Endif
Modify   Window   Screen   Title   "查询 "  

Set   Default   to   SYS(5)+SYS(2003)   &&设置软件所在的目录

Set   Talk   Off
Set   Mark   To
Set   Compatible   On
Set   Escape   Off
Set   Dele   On
Set   Safe   Off
Close   All

If   File( "Data\Data.dbf ")
      Do   Form   表单1
      Read   Events
      Else
      ErrorMsg= "数据文件缺失， "+chr(13)+ "请检查DATA目录， "+chr(13)+ "按确定后退出本程序！ "
      MessageBox(ErrorMsg,0+16+0, "系统提示 ")
      Close   All
      Quit
EndIf
————————

表单的unload事件代码
————————
Erase   *.dbf
Close   all
Quit

未连编前，运行主程序，点击关工具栏×键能顺利关闭表单；连编并生成安装文件，之后运行NETSETUP目录下的setup进行安装，安装好后能打开软件，可是在点击工具栏×键的时候弹出名为“程序错误”的提示框，内容为“文件正在使用”（而我主表单未有打开表的操作，只是在主表单上点击一个按钮打开另一个表单才会有use表单的操作），我点击提示框上“取消”或“忽略”按钮后能关闭软件，可是怎么能取消这个提示框呢？

 

答案 ：

 

Erase   *.dbf
Close   all
Quit

改成

Close   data   all
Erase   *.dbf
Quit