title: ADODB.recordset AddNew/Update Method Error -2147467259 (80004005)
body: <p>I've been getting the following error when trying to write data from my HMI to a MSSQL db using ADODB.recordset with the AddNew/Update Methods. I'm using SQL Server Native Client 11.0 for the connection and Microsoft ActiveX Data Objects 6.0 Library.</p>
  
  <pre><code>Generic VBA Error -2147467259[Microsoft][SQL Server Native Client 11.0][SQL Server]FNGCO,ABCDEFGHI,1000003,2017-04-14,17:00:36:187,FOAML1,A1,,1  
  </code></pre>
  
  <p>If it works this code should write each value to each column in the MSSQL database. I've got very similar code working in another part of the application, but I can't seem to get this working.</p>
  
  <p>What I Have Tried So Far:</p>
  
  <ul>
  <li>Checked against code running in another HMI, everything between the two appears to be identical.</li>
  <li>Tried the same connection string with another ADODB.recordset and added data to the db with AddNew/Update.</li>
  <li>Checked the database table to make sure all of the data I'm trying to enter fits the column (its not null, max characters not exceeded, etc...)</li>
  </ul>
  
  <p>Here is my code:
  On debug, the code halts at sqlrs1.Update.</p>
  
  <pre><code>Option Explicit
  Const strSQLNCLI11_1 = "Driver={SQL Server Native Client 11.0};Server=TESTDEMO\SQLEXPRESS;Database=RABPI;Uid=sa;Pwd=testdemo;QueryTimeout=0"'
  
  Private Sub Button1_Released()
  On Error GoTo ErrHandler
  
      Dim sqlcn2 As ADODB.Connection
      Dim sqlrs1 As ADODB.Recordset
      Set sqlcn2 = New ADODB.Connection
      Set sqlrs1 = New ADODB.Recordset
  
      sqlcn2.Open strSQLNCLI11_1
  
      sqlrs1.Open "Select * from AT_BW_PRDN ;", _
          sqlcn2, adOpenDynamic, adLockPessimistic
  
       sqlrs1.AddNew
       sqlrs1("AT_BW_BUS_UNIT") = "FNGCO"
       sqlrs1("AT_BW_PID") = "ABCDEFGHI"
       sqlrs1("AT_BW_PRDN_AREA") = "FOAML1"
       sqlrs1("AT_BW_SHIFT") = "A1"
       sqlrs1("AT_BW_ITEM_ID") = "1000007"
       sqlrs1("AT_BW_REL") = 0
       sqlrs1.Update
  Exit Sub
  
  ErrHandler:
  LogDiagnosticsMessage "Generic VBA Error" &amp; Err.Number &amp; " " &amp; Err.Description, ftDiagSeverityError, ftDiagAudienceOperator
      Set sqlcn2 = Nothing
      Set sqlrs1 = Nothing
  Exit Sub
  
  End Sub
  </code></pre>
  
  <p>UPDATE:
  I made a test database and re-created the tables I'm trying to write to without any constraints or triggers and the code functioned properly.</p>