Private Sub CommandButton1_Click()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ТипAs String, Дата_ввода As Date
Тип = ComboBox1.Value
Дата_ввода = TextBox1.Value
Set conn = New ADODB.Connection
    conn = "что-то там"
    conn.Open
        'If conn.State = 1 Then
        'MsgBox "Есть контакт!"
        'Else
        'MsgBox "Беда :("
        'End If
         Set rst = New ADODB.Recordset
         rst.Open ("SELECT SUM(Количество) FROM [Таблица продуктов] WHERE Дата = #" & Format(Дата_ввода, "mm-dd-yyyy") & "# AND [Тип продукта] = '" & Тип & "'"), conn
         Sheets(1).Cells(1, 1).CopyFromRecordset rst
         TextBox2.Value = Sheets(1).Cells(1, 1)
    conn.Close
End Sub

rst.Open ("SELECT SUM(Количество) AS QTY FROM [Таблица продуктов] WHERE Дата = #" & Format(Дата_ввода, "mm-dd-yyyy") & "# AND [Тип продукта] = '" & Тип & "'"), conn
TextBox2.Value = rst.Fields("QTY").Value

=ЕСЛИОШИБКА(ГПР(ЕСЛИ(МЕСЯЦ(B4)=11;1&"_"&ГОД(B4)+1;ЕСЛИ(МЕСЯЦ(B4)=12;2&"_"&ГОД(B4)+1;МЕСЯЦ(B4)+2&"_"&ГОД(B4)));C$3:K$1048576;СТРОКА(B4)-2;ЛОЖЬ);"Нет отчётности")