关闭所有数据库对象

如果窗体数据库对象不关闭而重复打开就会提示错误信息，这里使用代码实现当卸载窗体时关闭所有的数据库对象。程序代码如下：

Private Sub Form_Unload(Cancel As Integer)

    Dim Wsp As workspace

    Dim db As Database

    Dim rs As Recordset

    For Each Wsp In workspaces

        For Each db In wps.databases

            For Each rs In db.recordsets

                rs.Close

                Set rs = Nothing

            Next

            db.Close

            Set db = Nothing

        Next

        Wsp.Close

        Set Wsp = Nothing

    Next

End Sub