Set dbAccess = OpenDatabase("C:\Work\База\0030.mdb")
    Sql_String = "TRANSFORM Sum(Экспорт_Заявка.[Sum-Продано_кг]) AS [Sum-Sum-Продано_кг]" & _
" SELECT Экспорт_Заявка.Группа" & _
" FROM Экспорт_Заявка" & _
" WHERE (((Экспорт_Заявка.Дата) Between " & CLng(a) & " And " & CLng(b) & "))" & _
" GROUP BY Экспорт_Заявка.Номер, Экспорт_Заявка.Группа" & _
" ORDER BY Экспорт_Заявка.Номер, Экспорт_Заявка.Дата" & _
" PIVOT Экспорт_Заявка.Дата;"

    Set TestTable = dbAccess.OpenRecordset(Sql_String)
    
    If (TestTable.RecordCount >  0 ) Then
    Range("A5").CopyFromRecordset TestTable
    Else: MsgBox "Not Found"
    End If
 
    TestTable.Close
    dbAccess.Close