vb中 两个combobox控件 点击其中一个下拉列表中的一项 另外一个下拉列表项会变成不同的项目 该怎么做

Private Sub Combo1_Click() '分类下拉框,在这里写下代码令第二个combobox的下拉列表改变
Select Case Combo1.ListIndex
Case 0 ‘比如这个是食物
Data1.RecordSource = "Food" ‘Data1是数据库控件，已绑定数据库，food是表名
Case 1 '这个是饮料
Data1.RecordSource = "Drink"
End Select

Data1.Refresh

If Data1.Recordset.RecordCount = 0 Then
‘如果没有记录
Else
’有记录的话
DBList1.Text = Data1.Recordset("Name") ‘Name是字段名
‘DBList1是列表控件
‘你修改一下，用combobox加载列表就行
End If

End Sub

Private Sub Combo1_Change()
Combo2.Clear
If Combo1.Text = "食物" Then
Combo2.AddItem "馒头"
Combo2.AddItem "面包"
Combo2.ListIndex = 0
ElseIf Combo1.Text = "饮料" Then
Combo2.AddItem "可乐"
Combo2.AddItem "雪碧"
Combo2.ListIndex = 0
End If
End Sub