Access VisualBasic Script

Sub SetGranularity()
    Application.SetOption "Use Row Level Locking", True
End Sub