title: Update is not working in Access VBA - ADODB.Recordset
body: <p>I try update recordset by update argument and code run good but a updating record is still same. </p>
  
  <p>Code:</p>
  
  <pre><code>With mMails
      .LEVEL1 = cTagLevel1
      .MAIN_TAG = cTagLevel2
      .DETAILED_TAG = cTagLevel3
      .FIELD_TAG = cTagField
      .INSIGHT = cTagInsight
      .BRANCH = cTagBranch
      .DataSource.Commit
  End With
  </code></pre>
  
  <p>And Commit Sub:</p>
  
  <pre><code>Public Sub Commit()
      mRst.Update
  End Sub
  </code></pre>
  
  <p>And Connection:</p>
  
  <pre><code>Set mRst = New ADODB.Recordset
  Set mRst.SOURCE = pCmd
  mRst.CursorLocation = adUseClient
  mRst.CursorType = adOpenStatic
  mRst.LockType = adLockBatchOptimistic
  mRst.Open
  If Not (pAccessMode = AccessMode_ReadOnly) Then
      Set mCn = pCmd.ActiveConnection
  End If
  Set mRst.ActiveConnection = Nothing
  </code></pre>
  
  <p>All values with mMails are correct but update doesn't work. What I doing wrong? When I tried use UpdateBatch the update want change whole row and not only selected... </p>
  
  <p>Sry for my English :) and thanks a lot for any help!</p>