Sub close() Dim myWorkspace As Workspace Dim myDatabase As Database Set myWorkspace = DBEngine.Workspaces(0) Set myDatabase = myWorkspace.OpenDatabase(Name:= "\\server\database\Testing.mdb",Options:=True, ReadOnly:=False) myDatabase.Close End Sub