comboBox与数据库字段？？

Question

请问:怎么才能让数据库存中的所有字段自动添加到ComboBox中？？

Answer 1

set combox1.datasource=rs
or
Private Sub cmbFailureType_DropDown()
  Dim sQuery As String
  Dim i As Integer
  sQuery = "select distinct failuretype from tblfailure"
  Set rstCmms = cnnCMMS.Execute(sQuery)
  cmbFailureType.Clear
  For i = 1 To rstCmms.RecordCount
    cmbFailureType.AddItem rstCmms.Fields("failuretype").Value
    rstCmms.MoveNext
  Next

Answer 2

Dim re1 As New ADODB.Recordset
re1.CursorLocation = adUseClient
re1.open "select name from table1", con, adOpenKeyset, adLockOptimistic
do while not re1.eof
    combox1.additem re1.field("name")
    re1.movenext
loop

Answer 3

将下面的输入试试：（注意核对……）
Dim rs As  ADODB.Recordset
set rs=new adodb.recordset
rs.CursorLocation = adUseClient
rs.open "select name from table1", cnn, ad……, ad……
do until rs.eof
    combo1.additem rs.fields("name")  '这一句你仔细和你的对一下，你的两处出错。
    rs.movenext
loop