title: Excel VBA SQL ADODB Not Inserting Row Into Worksheet (NO ERRORS)
body: <p>My insert statement has been working, but randomly stops inserting, until I go into the workbook I'm inserting into and manually change something and save. </p>
  
  <p>The db workbook currently has around 15,000 rows that have been previously inserted, but now when I run the macro, it doesn't insert anything and there are no errors. I've stepped through the code, and every line executes normally.</p>
  
  <p>I need help figuring out why nothing is being inserted, when it worked before.</p>
  
  <pre><code>Sub Insert
      Dim con As ADODB.Connection
      Dim InsertSQL As String
  
      InsertSQL = "INSERT INTO [Sheet1$] ([FIELD1],[FIELD2],[FIELD3],[FIELD4],[FIELD5]) VALUES( 1234567895,9350.00,#9/12/2019#,'username',#9/12/2019 10:05 AM#)"
      Set con = New ADODB.Connection
      con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &amp; dbpath &amp; ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=0""; Mode=ReadWrite;"
      con.Execute InsertSQL
      con.Close
  End Sub
  </code></pre>
  
  <p>Edit:
  I've set default values in the first 8 rows of my db workbook so as not to cause any limitations in data types as specified in:</p>
  
  <blockquote>
    <p>This is an issue with the Jet OLEDB provider. It looks at the first 8
    rows of the spreadsheet to determine the data type in each column. If
    the column does not contain a field value over 256 characters in the
    first 8 rows, then it assumes the data type is text, which has a
    character limit of 256. The following KB article has more information
    on this issue: <a href="http://support.microsoft.com/kb/281517" rel="nofollow noreferrer">http://support.microsoft.com/kb/281517</a></p>
  </blockquote>
  
  <p>It's possible this issue is due to some blank rows in the worksheet, but I can't confirm.</p>