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