title: Running asynchronous query in MS Access
body: <p>I'm trying to run some heavy queries asynchronously, but can't figure out how to do it for an .mdb file.</p>
  
  <p>This is what I have so far:</p>
  
  <pre><code> Dim wrksp As Workspace, qdf As QueryDef, rst As Recordset
  Dim cnn As Connection, strConnect As String
  
  Set wrksp = CreateWorkspace("ODBCDirect", "Admin", "", dbUseODBC)
  
  
  strConnect = "ODBC;Driver={Microsoft Access Driver (*.mdb)};Database=F:\Databank\webshop_ingrid.mde;Uid=;Pwd=;"
  
  Set cnn = wrksp.OpenConnection("", dbDriverNoPrompt, False, _
                                 strConnect)
  
  Dim rs As Recordset
  
  
  
    Dim strQuery As String
    strQuery = "UPDATE ((((((tblSkuActueel LEFT JOIN qryStockSkuMetLaatsteDatumSubQuery ON tblSkuActueel.sku = qryStockSkuMetLaatsteDatumSubQuery.sku) LEFT JOIN " &amp; _
    "qrySkuCapNieuwste ON tblSkuActueel.sku = qrySkuCapNieuwste.sku) LEFT JOIN qrySkuListNieuwste ON tblSkuActueel.sku = qrySkuListNieuwste.sku) LEFT JOIN " &amp; _
    "qrySkuPPDNieuwste ON tblSkuActueel.sku = qrySkuPPDNieuwste.sku) INNER JOIN qrySkuApexNieuwsteMetBtw ON tblSkuActueel.sku = qrySkuApexNieuwsteMetBtw.sku) " &amp; _
    "LEFT JOIN qrySkuSpecialNieuwsteDS ON tblSkuActueel.sku = qrySkuSpecialNieuwsteDS.sku) LEFT JOIN qrySkuSpecialNieuwsteNB ON tblSkuActueel.sku = " &amp; _
    "qrySkuSpecialNieuwsteNB.sku SET tblSkuActueel.stock = qryStockSkuMetLaatsteDatumSubQuery.aantal, tblSkuActueel.apex = qrySkuApexNieuwsteMetBtw.apex, " &amp; _
    "tblSkuActueel.cap = qrySkuCapNieuwste.cap, tblSkuActueel.listprice = qrySkuListNieuwste.listprice, tblSkuActueel.ppd = qrySkuPPDNieuwste.ppd, " &amp; _
    "tblSkuActueel.procent = qrySkuApexNieuwsteMetBtw.procent, tblSkuActueel.apin = Round(qrySkuApexNieuwsteMetBtw.apex*qrySkuApexNieuwsteMetBtw.procent,2), " &amp; _
    "tblSkuActueel.BtwId = qrySkuApexNieuwsteMetBtw.btwid, tblSkuActueel.specialpricenb = [qryskuspecialnieuwstenb].[specialprice], " &amp; _
    "tblSkuActueel.specialpriceds = [qryskuspecialnieuwsteds].[specialprice]"
  
    Set rs = Object.OpenRecordset(strQuery, dbOpenDynaset, dbSeeChanges + dbRunAsync)
  </code></pre>
  
  <p>That won't even open a connection as the connection string seems to be wrong.</p>