现有如下图所示的两个组合框，想实现以下功能，应该如何编写代码呢？请各位大侠指教。
combo1.additem "水果"
combo1.additem "蔬菜"
当选中combo1中的“水果”时，combo2中会有“苹果”、“梨”等选项供选择；
当选中combo1中的“蔬菜”时，combo2中会有“白菜”、“萝卜”等选项供选择。

作参考：
Private Sub Form_Load()
Combo1.AddItem "水果"
Combo1.AddItem "蔬菜"
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "水果" Then
Combo2.Clear
Combo2.AddItem "苹果"
Combo2.AddItem "梨"
Combo2.ListIndex = 0
End If
If Combo1.Text = "蔬菜" Then
Combo2.Clear
Combo2.AddItem "白菜"
Combo2.AddItem "萝卜"
Combo2.ListIndex = 0
End If
End Sub

Private Sub Form_Load()
    Combo1.AddItem "水果"
    Combo1.ItemData(Combo1.NewIndex) = 1
    Combo1.AddItem "蔬菜"
    Combo1.ItemData(Combo1.NewIndex) = 2
    Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
    Combo2.Clear
    Select Case Combo1.ItemData(Combo1.ListIndex)
    Case 1
        Combo2.AddItem "苹果"
        Combo2.AddItem "梨"
        Combo2.ListIndex = 0
    Case 2
        Combo2.AddItem "白菜"
        Combo2.AddItem "萝卜"
        Combo2.ListIndex = 0
    End Select
End Sub

谢谢楼上两位，经验正，均可实现以上功能。谢谢！

另请教一个问题：
如何把Excel表格中的数据导入到组合框中？
如附件Book1.xls中Sheet1中第一列（A列）数据为“苹果”、“梨”；第二列（B列）数据为“白菜”、“萝卜”。若想实现本帖功能，应该如何做？谢谢！

[ 本帖最后由 桃源书生 于 2009-11-10 11:00 编辑 ]

有二种办法:
1\用读取 excel 的方法,读这个文件,可以直接读取指定单元格的内容
如combo1选的第一个,就请第1列数据,一个一个加进去,直到读出来的内容为空白为止.
如何读取EXCEL文件,请查找一下论坛.


2\用读数据库的方法来读这个excel ,一行就是一样记录.列是字段,也照样读取空白为止.(这个我没用过,只知道有)

读取excel查到了，但是不清楚如何把excel中的数据写入combo中，请指点。
附读取excel代码：
Dim xlsApp As Excel.Application
    Dim xlsworkbook As Excel.Workbook
    Dim xlssheet1 As Excel.Worksheet
    Dim xlssheet2 As Excel.Worksheet
    Set xlsApp = CreateObject("Excel.Application")
    Set xlsworkbook = xlsApp.Workbooks.Open("C:\a.xls")
    xlsApp.Visible = False
    Set xlssheet1 = xlsworkbook.Worksheets.Item(1)
    Dim h As Integer
    Dim l As Integer
    h = xlssheet1.UsedRange.Rows.Count
    l = xlssheet1.UsedRange.Columns.Count

do
  在 execl 中读一个数据
  if 读的结果<>"" then
      combo.additem 刚读的这个数据
  else
      exit do
  end if
loop