エクセル上でADOを用いて、アクセス上のクエリを出力するVBAを作成したいです。

現行エラーが出ているVBAを書きます。

■エクセル上のVBA(現行、エラーが出ます。)

Sub DB_Read()

Dim adoCON As New ADODB.Connection

Dim adoRS As New ADODB.Recordset

Dim strSQL As String

Dim odbdDB As Variant

Dim wSheetName As Variant

Dim i As Integer

Dim accApp As Access.Application

Dim rs As New ADODB.Recordset

'カレントディレクトリのデータベースパスを取得

odbdDB = ActiveWorkbook.Path & "\sample.accdb"

'データベースに接続する

adoCON.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" _

& "Data Source=" & odbdDB & ""

adoCON.Open

'DB接続用SQL

strSQL = "SELECT テスト.* FROM テスト ORDER BY テスト.ID;"

'レコードセットを開く

adoRS.Open strSQL, adoCON, adOpenDynamic

'アクティブなシート名を取得

wSheetName = ActiveSheet.Name

'スタート行をセット

i = 3

'テーブルの読み込み

Do Until adoRS.EOF

With Worksheets(wSheetName)

.Cells(i, 1).Value = adoRS!単価

.Cells(i, 2).Value = adoRS!関数

End With

i = i + 1

adoRS.MoveNext

Loop

'クローズ処理

adoRS.Close

Set adoRS = Nothing

adoCON.Close

Set adoCON = Nothing

End Sub

宜しくお願いします。