Opens Database in exclusive mode with read/write access
Sub work() 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) End Sub