我在FORM1中建了16个combo1.有一个access数据库。字段有16个与之对应，有数据记录。

我想在程序运行时，自动将数据库各字段的记录读到combo1各个下拉列表框中。写了以下程序。但是运行这个程序只有combo1(0)下才读出了记录。其他的都读不出，表示程序没有循环吧。帮我检查下为什么不对呢。我昨天写出来都能读，但今天写出来就不对，还是我写得不对哦。

代码：
Private Sub Form_Load()
'列表框初始化

For c = 0 To Adodc2.Recordset.Fields.Count
For b = 0 To Adodc2.Recordset.RecordCount
If Adodc2.Recordset.EOF = 0 Then

Combo1(c).AddItem Adodc2.Recordset.Fields(c)
Adodc2.Recordset.MoveNext

End If
Next b
Next c
End Sub

谢谢！

jxyga111：

     我改成Count-1还是不行呢

jxyga111：

  还是不对，我把For c = 0 To Adodc2.Recordset.Fields.Count
改成For c = 0 To 16
结果是一样的，数据库中第一个字段的记录集添加到了combo1（0）的下拉菜单中，但combo（？）其他控件的都没有加，表面最外层没有循环吧。数据库中有记录集的

哈哈，已经搞定了，再次感谢VB探讨群3的灬炸子骨︶ㄣ和砂之守鹤和楼上的jxyga111的帮组。

正确代码如下：
For c = 1 To Adodc2.Recordset.Fields.Count - 1
Combo1(c - 1).Text = ""
    For d = 0 To Adodc2.Recordset.RecordCount - 1

        If Adodc2.Recordset.EOF = 0 Then
        If Adodc2.Recordset.Fields(c).Value <> "" Then

        Combo1(c - 1).AddItem Adodc2.Recordset.Fields(c)
        Adodc2.Recordset.MoveNext
        End If
        End If
    Next d
Adodc2.Recordset.MoveFirst

Next c

不循环的原因在于没有把数据库记录游标指到开头。所以要加Adodc2.Recordset.MoveFirst这句。

If Adodc2.Recordset.Fields(c).Value <> "" Then这句是判断记录为空的情况。不然会出错。

恩，明白了。
我没调试过，嘿