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