断开所有的数据连接

如果在代码中使用了数据控件如 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