----下面有一段放在Form_Unload事件（或者其他退出模块中）中的一小段代码例子，它演示了关闭所有打开的DAO工作台、数据库和记录并释放了被这些对象占用的内存。当你退出FORM时，不论在有一个、100个甚至没有数据库连接时都可以使用下面代码。

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->