VB怎么样给Excel中的ComboBox赋值？

请教：
    有一个VB程序，需要将一些变量的值传个一个Excel表中的ＣｏｍｂｏＢｏｘ的Ｌｉｓｔ像项中，现在无法实现，请帮帮我。谢谢。 --------------------编程问答-------------------- sql = "select 组别 from 组别设置  order by 组别"
rsOther.Close
rsOther.Open sql, cn
If rsOther.RecordCount > 0 Then
   rsOther.MoveFirst
   Do While Not rsOther.EOF
      oExcel.ActiveSheet.ComboBox5.AddItem (Trim(rsOther("组别")))
      rsOther.MoveNext
   Loop
End If
--------------------编程问答-------------------- 由于我对SQL不熟悉，请举实例好嘛？组别，组别设置怎样用？？？
Excel中需要被写入的Combobox很多，并且不是控件数组，单条写入怎么办？谢谢您。 --------------------编程问答-------------------- Excel里创建Combobox的时候命名默认是comboBox1,comboBox2,combobox3...

写入的时候只须这样：

oExcel.ActiveSheet.ComboBox1.AddItem 变量 

补充：VB ,  VBA