Скажите пожалуйста, возможен ли запрос с группировкой
в свойстве CommandText объекта QueryTables?

Потому что следующее выдает ошибку:

''''''''''''''''''''''''''''

strt1 = "SELECT AKT.KOD, AKT.KOD_T, Val(AKT.PR & str(AKT.KVT)) AS RASXOD, TARIF.ZNACH"
strt2 = "FROM " & the_file & " AKT LEFT JOIN TARIF TARIF ON AKT.KOD_T = TARIF.KOD"
strt3 = "WHERE (AKT.kod = '" & Trim(kod_pr) & "') AND (AKT.DATA = '" & date_of_akt & "')"
strt4 = "GROUP BY TARIF.KOD"

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Файлы dBASE;DefaultDir=" & path_of_base & ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Workbooks("Akt").Worksheets("tarifs").Range("a1"))
.CommandText = strt1 & Chr(13) & Chr(10) & strt2 & Chr(13) & Chr(10) & strt3 & Chr(13) & Chr(10) & strt4
.Name = "Тарифы"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

''''''''''''''''''''''''''''''''''

Если вместо GROUP BY пишу ORDER BY - все нормально.
Где ошибка?
Спасибо.