Access VisualBasic Script

Sub SetLocking()
    Application.SetOption "Default Record Locking", 2
End Sub