VB里做个下拉的Combo1列表里怎么写?

VB做个Combo1，然后怎么让人点那个三角形就显示出一堆选项来？默认的是只有个”Combo1”的，下面的选项怎么写？新手问题

Private Sub Form_Load()
Combo1.AddItem "zhang "
Combo1.AddItem "zhang "
Combo1.AddItem "zhang "
Combo1.AddItem "zhang "
Combo1.AddItem "zhang "
End Sub
就用combo1的additem方法加入各种数据！
或者在窗体上建个text1然后单击command1一个一个加进去
Private Sub Command1_Click()
Combo1.AddItem Text1
End Sub

dim rs as new adodb.recordset set rs=sqlfind("select * from 表名") 语句视情况而定.sqlfind是一个 已定义好的执行函数 rs.movefirst do while not rs.eof combo.additem (rs.fields("日期字段")) rs.movenext loop 这样应该可以达到你要的效果吧.