Private Sub ComboBox1_DropButtonClick()

 Dim db As ADODB.Connection
 Dim rec As ADODB.Recordset, rs As ADODB.Recordset

 Set db = New ADODB.Connection
 Call db.Open("Provider='sqloledb';Data Source='" + Server + "';Initial Catalog='" + DataBase + "'", User, Password)
 Set rec = New ADODB.Recordset

 sqld = "SELECT SklPrcRst_Rcd, SklPrcRst_Nm FROM SklPrcRst"

 rec.Open sqld, db

 ComboBox1.ColumnCount = 2
 If Not rec.State = 1 Then Exit Sub
 Set rs = db.Execute(sqld)
 ComboBox1.Column() = rs.GetRows

 rec.Close
Set rec = Nothing
db.Close
Set db = Nothing



End Sub

Private Sub ComboBox1_Change()

 Dim db2 As ADODB.Connection
 Dim rec2 As ADODB.Recordset

 Set db2 = New ADODB.Connection
 Call db2.Open("Provider='sqloledb';Data Source='" + Server + "';Initial Catalog='" + DataBase + "'", User, Password)
 Set rec2 = New ADODB.Recordset

 sqld2 = "select sklgr_nm, skln_CD,Skln_Rcd, Skln_NMAlt, Sum (SklKrt_qt ) Ost, Sum (Sklkrt_sum) SummAll_Rub ," + _
             "kor.nmei_qtosn as kor,  bl.nmei_qtosn as bl, ArcCn, (ArcCn*bl.nmei_qtosn ) as CnBl," + _
            "(ArcCn*kor.nmei_qtosn) as CnKor " + _
    "FROM skln " + _
    "left join sklkrt on sklkrt_rcdnom = skln_rcd " + _
    "left join sklgr on sklgr_rcd = skln_rcdgrp " + _
    "left join SKLNOMEI kor on kor.nmei_rcdnom=skln_rcd and kor.nmei_cd=3 " + _
    "left join SKLNOMEI bl on bl.nmei_rcdnom=skln_rcd and bl.nmei_cd=2 " + _
    "left join SklPrc on SklPrc_RcdOpa = SklKrt_RcdOpa " + _
    "Left Join " + _
    "(" + _
    "select CA.SklPrcArc_Prc as SklPrcArc_Prc, CA.sklprcarc_cn1b as ArcCn, " + _
        "CA.sklprcarc_dat as sklprcarc_dat " + _
    "from sklprcarc CA " + _
    "where CA.SklPrcArc_PrcR = " + ComboBox1.Value + _
    " AND CA.SklPrcArc_Dat = "

    sqld2 = sqld2 + "( SELECT MAX(A1.SklPrcArc_Dat) FROM SklPrcArc  A1 " + _
          "where A1.SklPrcArc_Dat <= GETDATE() " + _
         "AND A1.SklPrcArc_PrcR = " + ComboBox1.Value + _
           " AND A1.SklPrcArc_Prc = CA.SklPrcArc_Prc " + _
         "GROUP BY A1.SklPrcArc_Prc,A1.SklPrcArc_PrcR " + _
        " ) " + _
    ") Arc ON Arc.SklPrcArc_Prc = SklPrc_Rcd " + _
    "where sklKrt_qt <> 0  and " + _
            "ArcCn <> 0 and " + _
            "SklKrt_Stor = '65535' and " + _
            "sklgr_rcd in (314, 316, 317, 318, 319, 320, 322, 323, " + _
                                   "     324, 325, 326, 327, 328, 329, 330, 332," + _
                                   "333, 335, 337, 338, 355, 359, 362) " + _
    "group by sklgr_nm, skln_cd, Skln_Rcd, Skln_NMAlt, kor.nmei_qtosn ,  bl.nmei_qtosn , Arc.ArcCn " + _
    "order by sklgr_nm, Skln_NMAlt"

rec2.Open sqld2, db2



With Worksheets(2)
    .Activate
    i = 4
    While Not rec2.EOF

    .Cells(i, 1) = rec!sklgr_nm
    .Cells(i, 2) = rec!skln_cd
    .Cells(i, 3) = rec!skln_NMAlt
    .Cells(i, 4) = "шт"
    .Cells(i, 5) = rec!Ost
    .Cells(i, 6) = rec!ArcCn

    i = i + 1
    rec2.MoveNext
    Wend

    End With

rec2.Close
Set rec2 = Nothing
db2.Close
Set db2 = Nothing

End Sub