Sub CloseAll()
Dim DBInstance As Database Dim RSInstance As Recordset On Error Resume Next For Each DBInstance In Workspaces(0).Databases 'For all open databases... For Each RSInstance In DBInstance.Recordsets 'For all open recordsets... RSInstance.Close Next DBInstance.Close Next End Sub Closing All Open Recordsets and Databases The following code iterates through and closes all open databases in the Databases collection of the Workspaces object. For each database in the collection, it iterates through each open Recordset and closes it first: |