combobox与数据库的问题

Question

怎么让数据库表的列名称加入Combo中去啊？百度出来的看的不是很懂···

Answer 1

set rec = select * from syscolums where id = object_Id('" & TableName & "')
combo.clear
Wihle not rec.EofCombo.addItem rec.Fields(0)
Wend

Answer 2

combo.clear
For i = 0 To rs.Fields.Count - 1
   Combo1.AddItem rs.Fields(i).Name
Next

Answer 3

combo.clear
For i = 0 To rs.Fields.Count - 1
    Combo1.AddItem rs.Fields(i).Name
Next