title: Push data from Excel to Access database
body: <p>I was looking for a way to push the data from Excel to an Access database. I found the code below, but I have no idea how to improve it.</p>
  
  <pre><code>Dim wsQS As Worksheet
  Dim sConnect As String
  Dim sCommand As String
  Dim adoCn As ADODB.Connection
  
  Set wsQS = Worksheets("QueryStrings")
  Set adoCn = New ADODB.Connection
  sConnect = wsQS.Range("rngConnect").Value
  sCommand = wsQS.Range("rngCommand").Value
  
  ' Get ADO connection to the workbook
  adoCn.Open sConnect
  ' Append data from Excel worksheet
  adoCn.Execute sCommand
  
  ' Close the connection to the workbook
  adoCn.Close
  Set adoCn = Nothing
  Worksheets("CopyToDB").Range("DataToExport").Offset(1, 0).ClearContents
  Worksheets("Proj DB").Activate
  
  Set wsQS = Nothing
  </code></pre>
  
  <p><strong><em>Architecture</em></strong></p>
  
  <pre><code>                 ------------------
                  |       web        |
                  |       page       |
                   ------------------
                            |
                            |
                            |
              Python and BS4(Data Extraction)
                            |
                            |
                            |
                   ------------------                               
                  |       Excel      |
                  |       data       |
                   ------------------
                            |
                            |
                            |
               Python to Push Data(Oracle/Access)
                            |
                            |
                            |
                   ------------------
                  |       Any        |
                  |       DB         |
                   ------------------
  </code></pre>