Sub SetAndGetLocking(strLockType As String)
Dim intLockIndex As Integer
Dim strLockDesc As String
Select Case strLockType
Case "Optimistic"
intLockIndex = 6
Case "Exclusive"
intLockIndex = 1
Case "Pessimistic"
intLockIndex = 2
Case Else
intLockIndex = -1
End Select
If intLockIndex <> -1 Then
Application.SetOption "Default Record Locking", intLockIndex
End If
Select Case Application.GetOption("Default Record Locking")
Case 0
MsgBox "The default locking method is optimistic."
Case 1
MsgBox "The default locking method is exclusive."
Case 2
MsgBox "The default locking method is pessimistic."
End Select
End Sub