Nothing

你的代码没有错啊，不过中间少了点东西，即数据库的联接代码
Dim res As New ADODB.Recordset '这句没用
Dim i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
    With Combo2 '好像也没有什么用
        Combo2.AddItem Adodc1.Recordset.Fields(0)
        Adodc1.Recordset.MoveNext '这个有修改
    End With '好像也没有什么用
Next i