Sub closeWorkspace() Dim myWorkspace As Workspace Set myWorkspace = DBEngine.Workspaces(0) myWorkspace.Close End Sub