SQL Query работает в MySQL, но не в Excel VBA

Question

У меня есть запрос, который объединяет столбцы из двух таблиц.Я запускаю запрос без проблем в mySQL Workbench, но когда я запускаю его в сабвуфере в VBA, он выдает ошибки.

Вот код для моего соединения с БД

Sub dataquery()

Dim cntMyConnection As ADODB.Connection
Set cntMyConnection = New ADODB.Connection
Dim fld As ADODB.Field
Dim row As Long
Dim Col As Long

cntMyConnection.ConnectionString = "Driver={MySQL ODBC 8.0 ANSI Driver}; server=localhost; port=3306; database=assignment3; Uid=root; pwd=1qaz2wsx3edc!QAZ@WSX#EDC; option=3;"

cntMyConnection.Open

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim src2 As String

src2 = **"select h.hunterID, h.year, h.hunted, h.harvested, m.sex, m.date_of_kill, m.gmu, m.horn_width, m.brow_tine_left, m.brow_tine_right, m.points_left, m.points_right from hunter as h inner join moose as m on m.hunterid = h.hunterid"**

rs.Open src2, cntMyConnection

If rs.EOF Then
MsgBox "No mathcing records found."
rs.Close
cntMyConnection.Close
Exit Sub

End If

row = 1
Col = 1

    For Each fld In rs.Fields
    Sheet2.Cells(row, Col).Value = fld.Name
    Col = Col + 1
    Next

rs.MoveNext

row = row + 1

Do While Not rs.EOF

Col = 1

    For Each fld In rs.Fields
    Sheet2.Cells(row, Col).Value = fld
    Col = Col + 1

    Next

row = row + 1

rs.MoveNext

Loop

rs.Close

cntMyConnection.Close

End Sub

Я ожидаю, что онверните объединенные таблицы и заполните выделенные ячейки в Excel.