title: run time error 3251 current recordset does not support updating
body: <p>I am using excel 2007. i have successfully updated record sets in past using this code but Don't know why i start getting "run time error 3251"  on this one. Can someone help me to find out. please.</p>
  
  <p>for information, i am fetching data from access to excel vba user form &amp; then doing some updation &amp; deletion as per requirement.</p>
  
  <pre><code> Private Sub Update_Finance_return_details_Click()
  
  Dim rs As ADODB.Recordset
  Dim strSQL As String
  Dim myDB As String
  Dim cn As Object
  
  On Error GoTo ErrorHandler
  
    Set cn = CreateObject("ADODB.Connection")
  
    myDB = "X:\COMMERCIAL\New Automated Invioce 
    Tracker\Commercial_Invoice_Tracker.accdb"
  
    cn.CursorLocation = adUseServer
  
    With cn
      .Provider = "Microsoft.ACE.OLEDB.12.0"    'For *.ACCDB Databases
      .ConnectionString = myDB
      .Open
    End With
  
    Set rs = New ADODB.Recordset
    If rs.State &lt;&gt; adStateClosed Then rs.Close
  
    strSQL = "SELECT * FROM [CT] WHERE [Invoice_ID] = " &amp; Me.ID.Value &amp; ""
  
    rs.CursorLocation = adUseServer
    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
  
    With rs
      If (Me.Clarification_Rec_Date_return.Visible = True) Then
          !Fin_Query_Dt = Me.Clarification_Rec_Date_return.Value
      Else
          !Fin_Query_Dt = Null
      End If
  
      !Fin_Query = Me.Clarification_Received_Finance_return.Value
  
      If (Me.Clarification_Resolve_date_return.Visible = True) Then
        !Fin_Query_Resolve_Dt =  Me.Clarification_Resolve_date_return.Value
      Else
          !Fin_Query_Resolve_Dt = Null
      End If
      !Last_Updated_by = Environ("Username")
      !Last_Updated_on = Now
  
     .Update
     .Close
   End With
  
   MsgBox ("Record Updated Successfully")
  
  CleanExit:
     cn.Close
     Set rs = Nothing
     Set cn = Nothing
     Application.ScreenUpdating = True
  
     Exit Sub
  ErrorHandler:
     MsgBox Err.Description
     Resume CleanExit
  End Sub
  </code></pre>