مشکل در خوندن اطلاعات combobox

[hasti_62]

سلام دوستای عزیز،
من توی برنامم یه combobox گذاشتم که اطلاعات توشو از table access پر کردم حالا می خوام دونه دونه اطلاعاتشو بخونه و یه تابعی رو اجرا کنه یعنی اگه مثلا 50 تا داده داره تک تک اونارو بخونه و کاری رو انجام بده می تونید راهنمائی کنید.
ممنون می شم.

[Tasiyan]

For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem (Adodc1.Recordset.Fields!Name)
Adodc1.Recordset.MoveNext
Next
:لبخند:

[hasti_62]

For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem (Adodc1.Recordset.Fields!Name)
Adodc1.Recordset.MoveNext
Next
:لبخند:

مرسی دوست عزیز ولی من نمی خوام اصلا از فیلد table استفاده کنم مستقیم می خوام از خود combo داده ها رو بخونم راهی واسش دارین؟
ممنون.

[Tasiyan]

Private Sub Form_Load()
For i = 1 To 10
Combo1.AddItem (i)
Next
End Sub
Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
Print (10 + Combo1.List(i))
Next
End Sub
:لبخند:

[hasti_62]

Private Sub Form_Load()
For i = 1 To 10
Combo1.AddItem (i)
Next
End Sub
Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
Print (10 + Combo1.List(i))
Next
End Sub
:لبخند:

مرسی از توجه شما دوست عزیز با کمک شما مشکلم رو تونستم حل کنم من از این استفاده کردم:
for intx = 0 to combo1.listcount - 1
(str = combo1.list(intx
'
'
'
next
بازم ممنون:چشمک: