ActiveWorkbook.PivotCaches.Add(SourceType:=xlDAORecordSet, _
    SourceData:="?????").CreatePivotTable TableDestination:="", _
    TableName:="СводнаяТаблица1"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells( 5 ,  1 )
    ActiveSheet.Cells( 5 ,  1 ).Select
    ActiveSheet.PivotTables("СводнаяТаблица1").SmallGrid = False
    ActiveSheet.PivotTables("СводнаяТаблица1").AddFields RowFields:=Array( _
        "Группа", "Товар"), ColumnFields:="Дата", PageFields:="Марка"
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Заявка").Orientation = _
        xlDataField

Sub Макрос5()
    With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
        .Connection = Array(Array( _
        "ODBC;DSN=База данных MS Access;DBQ=C:\Work\База\001.mdb;DefaultDir=C:\Work\База;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTim" _
        ), Array("eout=5;PWD=Вася;UID=admin;"))
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT Месяц.Область, Месяц.Фирма, Месяц.Марка, Месяц.Группа, Месяц.Товар, Месяц.Дата, Месяц.`Sum-Продано_кг`, Месяц.`Sum-Продано_руб`" & Chr( 13 ) & "" & Chr( 10 ) & "FROM `C:\Work\База\001`.Месяц Месяц" _
        )
        .CreatePivotTable TableDestination:=Range("A3"), TableName:= _
        "СводнаяТаблица2"
    End With
    ActiveSheet.PivotTables("СводнаяТаблица2").SmallGrid = ЛОЖЬ
    ActiveSheet.PivotTables("СводнаяТаблица2").AddFields RowFields:=Array( _
        "Группа", "Товар"), ColumnFields:="Дата", PageFields:="Марка"
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Sum-Продано_кг"). _
        Orientation = xlDataField
End Sub

Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command

 ' Open the connection. 
Set cnnConn = New ADODB.Connection
With cnnConn
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0"
    .Open "C:\perfdate\record.mdb"
End With

 ' Set the command text. 
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
    .CommandText = "Select Speed, Pressure, Time From DynoRun"
    .CommandType = adCmdText
    .Execute
End With

 ' Open the recordset. 
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand

 ' Create a PivotTable cache and report. 
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlExternal)
Set objPivotCache.Recordset = rstRecordset
With objPivotCache
    .CreatePivotTable TableDestination:=Range("A3"), _
        TableName:="Performance"
End With

With ActiveSheet.PivotTables("Performance")
    .SmallGrid = False
    With .PivotFields("Pressure")
        .Orientation = xlRowField
        .Position =  1 
    End With
    With .PivotFields("Speed")
        .Orientation = xlColumnField
        .Position =  1 
    End With
    With .PivotFields("Time")
        .Orientation = xlDataField
        .Position =  1 
    End With
End With

 ' Close the connections and clean up. 
cnnConn.Close
Set cmdCommand = Nothing
Set rstRecordSet = Nothing
Set cnnConn = Nothing

Sub Макрос3()
    
    Dim dbAccess As Database
    Dim TestTable As DAO.Recordset
    Dim Sql_String As String
    Dim a, b As Date
    Dim c As Integer
    
    On Error GoTo ErrorsDB
    
    Set dbAccess = OpenDatabase("\\ws228\A_Milk\База\0030.mdb")
    Sql_String = "SELECT [003].Дата, [2_Группы].Группа, [3_ Марки].Марка, [2_Ассортимент1].Товар, Sum([003].Продано_кг) AS Заявка" & _
    " FROM [3_ Марки] INNER JOIN (2_Группы INNER JOIN (2_Виды INNER JOIN ((2_Ассортимент INNER JOIN 2_Ассортимент1 ON [2_Ассортимент].Ключ = [2_Ассортимент1].Ключ) INNER JOIN 003 ON [2_Ассортимент1].Ключ = [003].Ассортимент) ON [2_Виды].Ключ = [2_Ассортимент].Вид) ON [2_Группы].Ключ = [2_Виды].Группа) ON [3_ Марки].Ключ = [2_Ассортимент].Марка" & _
    " GROUP BY [003].Дата, [2_Группы].Группа, [3_ Марки].Марка, [2_Ассортимент1].Товар;"

    Set TestTable = dbAccess.OpenRecordset(Sql_String)
    
    If (TestTable.RecordCount >  0 ) Then
        Cells( 2 ,  1 ).CopyFromRecordset TestTable
        intFildCount = TestTable.Fields.Count -  1 
        For intI =  0  To intFildCount
        Cells( 1 , intI +  1 ).Value = TestTable.Fields(intI).Name
        Next intI
    Else: MsgBox "Not Found"
    End If

    TestTable.Close
    GoTo Ends
        
ErrorsDB:
    MsgBox "Произошла ошибка"
Ends:

End Sub

 ' Open the recordset. 
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand

 ' Create a PivotTable cache and report. 
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlExternal)
Set objPivotCache.Recordset = rstRecordset
With objPivotCache
    .CreatePivotTable TableDestination:=Range("A7"), _
        TableName:="СводнаяТаблица1"
End With

Set TestTable = dbAccess.OpenRecordset(Sql_String)
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlExternal)
Set objPivotCache.Recordset = TestTable
With objPivotCache
    .CreatePivotTable TableDestination:=Range("A7"), _
        TableName:="СводнаяТаблица1"
End With