This small subroutine iterates through and closes all databases in the Databases collection of the Workspaces object. For each database in the collection, it iterates through each Recordset and closes it first:

 Public Sub DBCloseAll()Dim DBInstance As DatabaseDim RSInstance As RecordsetOn Error Resume Next	For Each DBInstance In Workspaces(0).Databases'For all open databases....			For Each RSInstance In DBInstance.Recordsets'For all open=20Recordsets....				RSInstance.Close 			'Close all Recordsets			Next	DBInstance.Close 	' Close DB NextEnd Sub