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 

Private Sub Pusk_Click()
Query
Dim oCn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim oCmd As ADODB.Command
Dim sCn As String
Dim sSql As String
Dim sRng As String

Set oCn = New ADODB.Connection
Set oRs = New ADODB.Recordset
Set oCmd = New ADODB.Command

oCn.ConnectionTimeout = 0
oCn.CommandTimeout = 0
oCmd.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

sSql = S '"select top 100 * from B2.dbo.T1" 'Your query

oCmd.CommandType = adCmdText
oCmd.CommandText = sSql
oCmd.ActiveConnection = oCn

Set oRs = oCmd.Execute

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

oRs.Close
oCn.Close
Set oCmd = Nothing
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
        TopLeft.Cells(2, 1).CopyFromRecordset RS
    Else
        TopLeft.Cells(1, 1).CopyFromRecordset RS
    End If
End Sub

Option Explicit
Public S, U1, N1, N2 As String

Private Sub ComboBox1_Change()
If ComboBox1.Value = 12 Then
                              U1 = " WHERE t.god = 12"
                        Else: U1 = " WHERE t.god = 13"
End If
End Sub


Private Sub ComboBox2_Change()
If ComboBox2.Value = 1 Then
                              U1 = U1 & " AND t.mes = 1"
 ElseIf ComboBox2.Value = 2 Then U1 = U1 & " AND t.mes = 2"
 ElseIf ComboBox2.Value = 3 Then U1 = U1 & " AND t.mes = 3"
 ElseIf ComboBox2.Value = 4 Then U1 = U1 & " AND t.mes = 4"
 ElseIf ComboBox2.Value = 5 Then U1 = U1 & " AND t.mes = 5"
 ElseIf ComboBox2.Value = 6 Then U1 = U1 & " AND t.mes = 6"
 ElseIf ComboBox2.Value = 7 Then U1 = U1 & " AND t.mes = 7"
 ElseIf ComboBox2.Value = 8 Then U1 = U1 & " AND t.mes = 8"
 ElseIf ComboBox2.Value = 9 Then U1 = U1 & " AND t.mes = 9"
 ElseIf ComboBox2.Value = 10 Then U1 = U1 & " AND t.mes = 10"
 ElseIf ComboBox2.Value = 11 Then U1 = U1 & " AND t.mes = 11"
 ElseIf ComboBox2.Value = 12 Then U1 = U1 & " AND t.mes = 12"
 End If
End Sub

Private Sub Query()


Dim S1, S2, S3, S4, S5, S6, S7, S31 As String
S1 = " Use B2 SELECT top 5 max(g1.akb_v_obl1) as 'akb1', g1.offtake1,g1.procentakb1, g1.kl1,"
N1 = " t.obl,"
S2 = " 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',"
S3 = " t.god FROM B2.dbo.T1 t join (SELECT count(distinct t.kodKl) as 'klobl1',t.obl FROM B2.dbo.T1 t "
S31 = " Group By t.obl ) AS vsekg on vsekg.obl = t.obl"
S4 = " Group By vsekg.klobl1,"
S5 = " t.god ) AS g1 on     g1.god = t.god"
N2 = " AND g1.obl = t.obl "
S6 = " GROUP BY  g1.offtake1,g1.procentakb1, g1.kl1,"
S7 = " t.god"

    If CheckBox1.Value = True Then

                              N1 = N1 & " t.kategory,"
                              N2 = N2 & " AND g1.kategory = t.kategory"
    End If

    If CheckBox2.Value = True Then
                          N1 = N1 & " t.GrKl,"
                          N2 = N2 & " AND g1.Grkl = t.Grkl"
    End If

    If CheckBox3.Value = True Then
                          N1 = N1 & " t.TipT,"
                          N2 = N2 & " AND g1.TipT = t.TipT"
    End If

    If CheckBox4.Value = True Then
                          N1 = N1 & " t.FormT,"
                          N2 = N2 & " AND g1.FormT = t.FormT"
    End If

    If CheckBox5.Value = True Then
                          N1 = N1 & " t.Brand,"
                          N2 = N2 & " AND g1.Brand = t.Brand"
    End If

    If CheckBox6.Value = True Then
                          N1 = N1 & " t.sku,"
                          N2 = N2 & " AND g1.sku = t.sku"
    End If
S = S1 + N1 + S2 + N1 + S3 + U1 + S31 + U1 + S4 + N1 + S5 + N2 + U1 + S6 + N1 + S7



End Sub



Private Sub OptionButton1_Click()


End Sub



Private Sub Pusk_Click()
Query
Dim oCn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim oCmd As ADODB.Command
Dim sCn As String
Dim sSql As String
Dim sRng As String

Set oCn = New ADODB.Connection
Set oRs = New ADODB.Recordset
Set oCmd = New ADODB.Command

oCn.ConnectionTimeout = 0
oCn.CommandTimeout = 0
oCmd.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

sSql = S '"select top 100 * from B2.dbo.T1" 'Your query

oCmd.CommandType = adCmdText
oCmd.CommandText = sSql
oCmd.ActiveConnection = oCn

Set oRs = oCmd.Execute

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

oRs.Close
oCn.Close
Set oCmd = Nothing
Set oRs = Nothing
Set oCn = Nothing

End Sub



Private Sub PutRecordsetInSheet(RS As Recordset, TopLeft As Range, Optional Headers As Boolean)
    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
        TopLeft.Cells(2, 1).CopyFromRecordset RS
    Else
        TopLeft.Cells(1, 1).CopyFromRecordset RS
    End If
End Sub

select top 100 t.god,count(distinct t.kodkl)
 from B2.dbo.T1 t
 group by t.god