如果在代码中使用了数据控件如DAO，RDO，或ADO，在退出时应该关闭所有打开的recordset，database，和workspace。虽然对象能自动注销，但是数据连接不会马上断开，可能会导致一些内存不能被系统重新分配。

下面的代码可以关闭所有打开的DAOworkspace，并释放所占的内存。

PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext

DimwsAsWorkspace
DimdbAsDatabase
DimrsAsRecordset

ForEachwsInWorkspaces
ForEachdbInws.Databases
ForEachrsIndb.Recordsets
rs.Close
Setrs=Nothing
Next
db.Close
Setdb=Nothing
Next
ws.Close
Setws=Nothing
Next

EndSub->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!