主题：[求助]程序不完全退出的问题

我在生成程序后，执行其他的程序都对，可是为什么在点击退出后却在窗口退回到

此主题相关图片如下：snap4.gif

我的这个程序就一个窗口，没有其他窗口的，退出按钮的代码是：

If DataTables("订单").HasChanges Then
DataTables("订单").Save
End If
Forms("订单").Close

请问代码错在了哪里？应该如何修改，就可以直接退出软件了。