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

Private Sub ComboBox1_Change()
U1 = " WHERE t.god =" + CStr(ComboBox1.Value)
End Sub


Private Sub ComboBox2_Change()
U1 = U1 & " AND t.mes = " + CStr(ComboBox2.Value)
End Sub

Private Sub Query()


Dim S1, S2, S3, S4, S5, S6, S7, S31 As String
S1 = " set nocount on Use B2 SELECT 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 Pusk_Click()
Query
TextBox5.Text = S
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 t.sku,t.brand, t.god,count(distinct t.kodkl) from B2.dbo.T1 t group by t.brand,t.sku,t.god" 'Your query

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

Set oRs = oCmd.Execute
Set oRs = oRs.NextRecordset


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

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