----下面有一段放在Form_Unload事件（或者其他退出模塊中）中的一小段代碼例子，它演示了關閉所有打開的DAO工作臺、數據庫和記錄并釋放了被這些對象占用的內存。當你退出FORM時，不論在有一個、100個甚至沒有數據庫連接時都可以使用下面代碼。

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