急：一个有关程序关闭的问题（在线等待）

Question

请查看：
一、是不是每个窗口的ADO都关闭了。
二、是不是把每个窗口中的表、记录集都关闭了。

Answer 1

应set所有类的实例 nothing，其中包括窗体。

Answer 2

在窗口的Unload事件里加入 End 语句

Answer 3

没有看清你已经用了End了，那就改成下面的看看。Dim ObjForm As Form
For Each objForm in Forms
objform.unload
set objform=nothing
next objform

Answer 4

还有窗体HIDE着吧
在FORM_UNLOAD里面写END

Answer 5

多谢各位答复，问题已经解决，原来是我用的activeBar控件中的control属性加载了一个窗体，这个窗体并不是通过load或者show属性打开的，所以关闭窗体时没有想到要关闭。
已经给分，请收分！