با این کد میتونی تعداد فیلد هایی که برای مثال اسمش Name هست رو داخل یک کامبو باکس بریزی
Dim A As String
Dim I As Integer
Adodc1.Refresh
For I = 0 To Val(Adodc1.Recordset.RecordCount - 1)
A = (Adodc1.Recordset.Fields!Name)
Combo1.AddItem A
Adodc1.Recordset.MoveNext
Next I