**************************************************************************************

  Record locking types and method

**************************************************************************************

NOTE:  We're passing the subroutine below the description of the type of locking desired

Sub SetAndGetLocking(strLockType As String)

Dim intLockIndex As Integer

Dim strLockDesc As String

'Convert the string argument into a option index

Select Case strLockType

    Case "Optimistic"

        intLockIndex = 0

    Case "Exclusive"

        intLockIndex = 1

    Case "Pessimistic"

        intLockIndex = 2

    Case Else

        intLockIndex = -1

End Select

'Set default record locking option

If intLockIndex <> -1 Then

    Application.SetOption "Default Record Locking", intLockIndex

End If

'Now determine and display default record locking option

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