Ошибка run-time Error 1004 общая ошибка ODBC

[kaval88]

Sub t53t35t3t5t()
'
' t53t35t3t5t Ìàêðîñ
'

'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=Excel Files;DBQ=D:\First.xls;DefaultDir=D:;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT `'01NAR201101_1èñõ$'`.`Ñòðóêòóðíîå ïîäðàçäåëåíèå`, `'01NAR201101_1èñõ$'`.Îòäåë, `'01NAR201101_1èñõ$'`.`Òàáåëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Âèä îïëàòû/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ìåñ" _
        , _
        "ÿö íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ãîä íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ìåñÿö`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ãîä`, Sum(`'01NAR201101_1èñõ$'`.Ñóììà) AS 'Ñóììà'," _
        , _
        " `'01NAR201101_1èñõ$'`.`Èñòî÷íèê äàííûõ`, `'01NAR201101_1èñõ$'`.`Êîä àíàëèòèêè`, `'01NAR201101_1èñõ$'`.`Ñ÷åò-çàêàç`, `'01NAR201101_1èñõ$'`.`Áàëàíñîâûé ñ÷åò`, `'01NAR201101_1èñõ$'`.`Ïåðñîíàëüíûé íîìåð`" _
        , _
        ", `'01NAR201101_1èñõ$'`.`Íîìåð íàçíà÷åíèÿ`, `'01NAR201101_1èñõ$'`.`Âðåìÿ íîðìèðîâàíîå`, `'01NAR201101_1èñõ$'`.`Âðåìÿ ôàêòè÷åñêîå`" & Chr(13) & "" & Chr(10) & "FROM `D:\First.xls`.`'01NAR201101_1èñõ$'` `'01NAR201101_1èñõ$'`" & Chr(13) & "" & Chr(10) & "GROU" _
        , _
        "P BY `'01NAR201101_1èñõ$'`.`Ñòðóêòóðíîå ïîäðàçäåëåíèå`, `'01NAR201101_1èñõ$'`.Îòäåë, `'01NAR201101_1èñõ$'`.`Òàáåëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Âèä îïëàòû/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ìåñÿö" _
        , _
        " íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ãîä íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ìåñÿö`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ãîä`, `'01NAR201101_1èñõ$'`.`Èñòî÷íèê äàííûõ`, `'01N" _
        , _
        "AR201101_1èñõ$'`.`Êîä àíàëèòèêè`, `'01NAR201101_1èñõ$'`.`Ñ÷åò-çàêàç`, `'01NAR201101_1èñõ$'`.`Áàëàíñîâûé ñ÷åò`, `'01NAR201101_1èñõ$'`.`Ïåðñîíàëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Íîìåð íàçíà÷åíèÿ`, `'0" _
        , _
        "1NAR201101_1èñõ$'`.`Âðåìÿ íîðìèðîâàíîå`, `'01NAR201101_1èñõ$'`.`Âðåìÿ ôàêòè÷åñêîå`" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Òàáëèöà_Çàïðîñ_èç_Excel_Files"
        .Refresh BackgroundQuery:=False

Ошибка в .Refresh BackgroundQuery:=False запрос к файлу ексель

В чем может быть проблема???Мб слишком много записей для Екселя???
Ексель 2007