VB的combox怎么实现三级联动

VB的combox如何实现三级联动
VB的combox如何实现三级联动，我有三个combox，分别为combox1（品牌）,combox2（品类）,combox3（型号），比如品牌1有好几个品类，而每个品类有好几个型号，当我选择品牌1时，出现品牌1的品类，点击其中一个品牌1的品类又出现所对应的型号？希望有源码！！！请教如何实现？

[解决办法]

VB code

Option ExplicitPrivate Sub Combo1_Click()    Select Case Combo1.Text      Case "IT"        Combo2.Clear        Combo2.AddItem "A电脑"        Combo2.AddItem "B电脑"        Combo2.AddItem "C电脑"        Combo3.Clear        Combo3.AddItem "主板"        Combo3.AddItem "内存"        Combo3.AddItem "显示器"        Combo2.ListIndex = 0        Combo3.ListIndex = 0      Case "服饰"        Combo2.Clear        Combo2.AddItem "A衣服"        Combo2.AddItem "B衣服"        Combo2.AddItem "C衣服"        Combo3.Clear        Combo3.AddItem "上衣"        Combo3.AddItem "裤子"        Combo3.AddItem "围巾"        Combo2.ListIndex = 0        Combo3.ListIndex = 0    End SelectEnd SubPrivate Sub Form_Load()   Combo1.AddItem "IT"   Combo1.AddItem "服饰"End Sub
[解决办法]
VB code
Private Sub Combo1_Click()Combo2.Text = Combo2.List(Combo1.ListIndex) End SubPrivate Sub Combo2_Click()Combo3.Text = Combo3.List(Combo2.ListIndex)End SubPrivate Sub Form_Load()For i = 0 To 9Combo1.AddItem "品牌" & iNextCombo1.Text = "品牌"For i = 0 To 9Combo2.AddItem "品类" & iNextCombo2.Text = "品类"For i = 0 To 9Combo3.AddItem "型号" & iNextCombo3.Text = "型号"End Sub
[解决办法]
combox1（品牌） cbxBrand ,combox2（品类）cbxBClass,combox3（型号）cbxBCModel
VB code
'品牌变更private sub cbxBrand_Change()   BClass_Init(cbxBrand.text)   BCModel_Init(cbxBrand.text,cbxBClass.text)end sub'品类变更private sub cbxBrand_Change()   BCModel_Init(cbxBrand.text,cbxBClass.text)end sub'根据品牌初始化品类private sub BClass_Init(byval str as string)cbxBClass.clearcbxBClass.add'cbxBClass是否添加默认值end sub'根据品牌和品类初始化型号private sub BCModel_Init(byval strBrand as string,byval strBClass as string)cbxBCModel.clearcbxBCModel.add'cbxBCModel是否添加默认值end sub
[解决办法]
楼主的意思应该是从数据库里取出来三级分类。

那么启动的时候加载第一大类，选择第一大类的时候，动态加载第二小类，依次类推。

涉及的技术
1：数据库查询，SQL语句和ADO对象的使用
2：COMBOBOX添加ITEM的方法，和设置ITEMDATA