Private Sub Pusk_Click()

    With ActiveWorkbook.Connections("Подключение1").ODBCConnection
        .BackgroundQuery = False
        .CommandText = S
        .CommandType = xlCmdSql
        .Connection = _
        "ODBC;DRIVER=SQL Server;SERVER=Market6\M6;UID=имя;PWD=пароль;APP=Microsoft Office 2003;WSID=MARKET-BOSSOSS"
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    ActiveWorkbook.Connections("Подключение1").Refresh
 End Sub

WorkSheets("MyList").PivotTables("СводнаяТаблица1").PivotCache.Refresh

 oCn As ADODB.Connection 

 Private Sub Pusk_Click()

Dim oCn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim sCn As String
Dim sSql As String
Dim sRng As String

Set oCn = New ADODB.Connection
Set oRs = New ADODB.Recordset
oCn.ConnectionTimeout = 0
oCn.CommandTimeout = 0


sCn = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=fg;Initial Catalog=B2;Data Source=MARKET6\M6" 'Your connection string
oCn.Open sCn

MsgBox (S)
sSql = S '"select top 100 * from B2.dbo.T1" 'Your query
oRs.Open sSql, oCn

sRng = "A:AA"
ActiveSheet.Range(sRng).Clear
PutRecordsetInSheet oRs, ActiveSheet.Range("A1"), True

oRs.Close
oCn.Close
Set oRs = Nothing
Set oCn = Nothing
End Sub


Private Sub PutRecordsetInSheet(ByVal RS As Recordset, ByVal TopLeft As Range, Optional ByVal Headers As Boolean = True)
    Dim objField As ADODB.Field
    Dim i As Integer
    If Headers Then
        For Each objField In RS.Fields
            i = i + 1
            TopLeft.Cells(1, i).Value = objField.Name
        Next objField 

 Else
        TopLeft.Cells(1, 1).CopyFromRecordset RS
    End If
End Sub 

Use B2 
SELECT  max(g1.akb_v_obl1) as 'akb1', g1.offtake1,g1.procentakb1, g1.kl1,t.obl,t.god 
FROM B2.dbo.T1 t 
Left Join( 
          SELECT 
          sum(t.kg) / count(distinct t.kodKl) as 'offtake1',
          vsekg.klobl1 as 'akb_v_obl1',
          100 * count(distinct t.kodKl) / vsekg.klobl1 as 'procentakb1',
          count(distinct t.kodKl) as 'kl1',
          t.obl,t.god 
          FROM B2.dbo.T1 t 
              join (
                    SELECT 
                    count(distinct t.kodKl) as 'klobl1',t.obl 
                    FROM B2.dbo.T1 t 
                    WHERE t.god = 12
                    Group By t.obl 
                    ) AS vsekg on vsekg.obl = t.obl  
          WHERE t.god = 12 
          Group By vsekg.klobl1, t.obl, t.god 
          ) AS g1 on     g1.god = t.god AND g1.obl = t.obl  
WHERE t.god = 12 
GROUP BY  g1.offtake1,g1.procentakb1, g1.kl1, t.obl, t.god