Public Category As String

    'В текстбоксе отображаются выбранные чекбоксы правильно
Category = 'Тут выбранные значения чекбоксов из комбобокса (Например: Клиент, Группа, Вес, ... , ...и тд)
Me.TextBox1.Value = Category

'значения в переменную Категории попадают так:
For intI = 0 To Me.ListBox1.ListCount - 1
      If Me.ListBox1.Selected(intI) Then
         str = str & ", " & Me.ListBox1.List(intI)
       End If
    Next
    Category = Mid(str, 2)


"SELECT " + _
            "" & Category & " " + _
"FROM " + _
            "*" + _
"WHERE " + _
            "([Ãðóïïà] = '" & grupaOt & "') AND ([Êëèåíò (âõ)] = '" & Seti & "') AND " + _
            "(Êîð_Äàòà BETWEEN '" & mmyyot & "' AND '" & mmyydo & "') " + _
"GROUP BY " + _
            "" & Category & ""

  For i = 0 To rst.Fields.Count - 1
    
Cells(1, i + 1).Value = rst.Fields(i).Name

    Next i

  For i = 0 To rst.Fields.Count - 1
    If i < SomeValue Then
Cells(1, i + 1).Value = rst.Fields(i).Name
End If
    If i > SomeValue Then
Cells(1, i).Value = rst.Fields(i).Name
End If
    Next i