我试图通过vba通过sql查询从访问数据库获取数据

Sub Access()

Dim filepath As String

Dim oConn As ADODB.Connection

Dim RS As ADODB.Recordset

Dim ssql As String

Dim strMyPath As String, strDBName As String, strDB As String

'Getting workbook path

Path = Application.ActiveWorkbook.Path

'Finding complete address of the database

filepath = Path & "\TBS.accdb"

sConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

                             "Data Source=" & filepath & ";" & _

                             "Jet OLEDB:Engine Type=5;" & _

                             "Persist Security Info=False;"

 'Open a connection.

 Set oConn = New ADODB.Connection

 oConn.Open sConn

 ssql = Range("query ") & Sheets("backened").Range("F3")

'query is a named range containing sql query

MsgBox (Sheets("backened").Range("F3"))

Set RS = New ADODB.Recordset

            Set RS.ActiveConnection = oConn

             RS.Open ssql, oConn, adOpenStatic, adLockReadOnly, adCmdText

With RS

               Sheets("sheet3").Select

                Sheets("Sheet3").Range("F10").CopyFromRecordset RS

                .Close

End With

End Sub
Sub Access()

Dim filepath As String

Dim oConn