怎样用*.mdb库中的记录生成combobox控件的列表项(list)??

Question

combobox已经通过adodc控件与mdb库中的表的一个字段进行了绑定，希望在窗体加载时，就能在combobox控件的列表中看到字段的全部内容！！

Answer 1

Private Sub Form_Load()
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("字段")
Adodc1.Recordset.MoveNext
  Wend
 Adodc1.Recordset.Close
End Sub

Answer 2

Private Sub Form_Load()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("数据库")
Set RS = DB.OpenRecordset("文件")
Do While Not RS.EOF
  combobox.AddItem (RS.Fields(0))
  RS.MoveNext
  Loop
End Sub