FIX: ADO Client Cursors Report LockType = adLockPessimistic

MORE INFORMATION

Steps to Reproduce Behavior

1. Open a Standard.exe project in Visual Basic, and add a reference to the Microsoft ActiveX Data Object Library.
2. Copy and paste the following code into the form code window:

         Option Explicit
         Dim myconn As New ADODB.Connection
         Dim myrs As New ADODB.Recordset
   
         Private Sub Form_Load()
           Dim strConn As String
   
           'Modify the connection string to point to your SQLOLEDB.
            strConn = "Provider=SQLOLEDB;Data Source=server;Initial Catalog=Northwind;" & _
                      "user id=user;Password=password"
   
           myconn.CursorLocation = adUseClient
            myconn.Open strConn
   
          'Request a pessimistically locked cursor.
          'ADO's client cursor engine only supports optimistic locking.
            myrs.Open "SELECT * FROM Customers", myconn, _
                 adOpenStatic, adLockPessimistic, adCmdText
            MsgBox "MyRS.LockType = " & myrs.LockType & vbCrLf & _
                   "adLockPessimistic = " & adLockPessimistic & vbCrLf & _
                   "adLockOptimistic = " & adLockOptimistic
            myrs.Close
           End Sub
   					

3. Run the form and note the output of the message boxes.