سؤال عن Combo Box

البرنامج التالي يقوم بالمهمة

ضع text ,timer, combo box and data controle

كل ما عليك فعله ربط ال data controle من الخواص بمسار الداتا بيز في جهازك من database name و اختيار اسم الجدول من record source

ظلل text1 و اختر data source=data1 و data field =اسم الحقل الذي به الاسماء

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Data1.Recordset.MoveLast
x = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

Combo1.AddItem (Text1.Text)

For i = 2 To x
Data1.Recordset.MoveNext
Combo1.AddItem (Text1.Text)
Next

Timer1.Enabled = False
End Sub