уже битый час не могу найти где ошибся

в VBA Excel 2010 пишу следующее:

CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Данные\книгапродаж.xlsx;Extended Properties = ""Excel 12.0 Macro;HDR=YES;IMEX=0"""
CON.Open

s = "SELECT [ассортимент$].[КодТовара], [Год2017$].[ПродажиСумма], [Год2017$].[ПродажиКоличество] " & _
    "FROM [ассортимент$] left JOIN [Год2017$] ON (([ассортимент$].[КодПодразделения]=[Год2017$].[КодПодразделения]) AND ([ассортимент$].[КодТовара]=[Год2017$].[КодТовара]));"
RS.Open s, CON
ExBook.Worksheets("отчет").Range("A2").CopyFromRecordset RS
    For i = 1 To RS.Fields.Count
        ExBook.Worksheets("отчет").Cells(1, i) = RS.Fields(i - 1).Name
    Next i

Соответствующие данные продаж не выдает, на лист выбрасывает только код товара, при этом все три поля в заголовке RecordSet входят.

http://www.sql.ru/forum/1259951/proshu-vas-ukazhite-na-oshibku-sintaksisa