[مصمم هاوي]

تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * FROM Aol")
Dim A, B, C As Integer
B = 0
C = rs.RecordCount + 1
For A = 0 To C
Combo1.List(B) = rs("Names").Value
B = B + 1
rs.MoveNext
Next A