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

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

private sub form_unload(cancel as integer) 
on error resume next 
’ 
dim ws as workspace 
dim db as database 
dim rs as recordset 
’ 
for each ws in workspaces 
for each db in ws.databases 
for each rs in db.recordsets 
rs.close 
set rs = nothing 
next 
db.close 
set db = nothing 
next 
ws.close 
set ws = nothing 
next 
’ 
end sub