在Userform中过滤，ComboBox只显示过滤的数据

我需要帮助ComboBoxes和filter，当我从ComboBox1（“今天”或“本周”）设置filter，并按下button，我想ComboBox2只显示过滤的数据，这是在列1，如何做到这一点？ 这是我的代码：

Private Sub CommandButton1_Click()

Dim rng As Range Set rng = Sheet1.Range("Database")
If ComboBox1.Value = "Today" Then With rng .AutoFilter Field:=2, Criteria1:= _ xlFilterToday, Operator:=xlFilterDynamic End With End If If ComboBox1.Value = "This Week" Then With rng .AutoFilter Field:=2, Criteria1:= _ xlFilterThisWeek, Operator:=xlFilterDynamic End With End If End Sub