title: ADODB query updates Excel cell as escaped text
body: <p>I'm trying update a cell within an Excel 2003 spreadsheet, but the problem that I'm having is that Excel adds a single quote to the front of my value. Is there any way to enter the value as an integer and not as an escaped string? </p>
  
  <p>Thanks!!</p>
  
  <pre><code>Const filePath = "C:\1.xls"
  
  Dim ado: Set ado = CreateObject("ADODB.Connection")
  ado.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=""" _
                      &amp; filePath &amp; """;Extended Properties=""Excel 8.0;HDR=No"";"
  
  ado.CursorLocation = 3
  ado.Open
  
  ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = 1;"
  
  ado.Close
  </code></pre>
  
  <p>The above code updates cell A1 to <code>'1</code></p>