Import Access Query To Excel

If someone could point me in the right direction I would really appreciate it. I am a very inexperienced Access and VBA user, and I am trying to import Access queries to an excel spreadsheet on a weekly basis. I have searched the web and there area a lot of examples out there that I have modified and tried myself, but with no luck. I am crrently using Access and Excel 2010. One of the issues I am running into is an "Unrecognized database format" as the database that I am currently pulling from has an .accdb format. I have run into a couple other error messages with other codes that I have modified for my use. I have to fill out this spreadsheet weekly and every bit of information is written in separate Access queries. The idea is to eventually have the queries autofill into their designated places in the spreadsheet. I have included the code that I currently have. Your help is greatly appreciated. Thanks

Sub GetMyData()


     Const strDb As String = "C:\Users\dpk03\documents\DASH.accdb"
      Const strQry As String = "SELECT * from [Mill LBS Weekly]"

      Dim rs As ADODB.Recordset
      Dim cn As ADODB.Connection

      Set cn = New ADODB.Connection
      cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDb & ";"
     Set rs = New ADODB.Recordset

     With rs
         Set .ActiveConnection = cn
         .Open strQry
     End With
     Worksheets("Sheet2").Range("A2").CopyFromRecordset rs

     rs.Close: cn.Close
     Set rs = Nothing: Set cn = Nothing
 End Sub