سوال درمورد ابزار combo

[yones.em]

سلام . يه combobox ميخوام كه ربطش بدم به فيلد اكسس و تمامي اعضاي درون فيلدمو واسم نشون بده. ناگفته نمونه اينكارو بلدم و كردم . ولي فقط اولين عنصر فيلدمو نشون ميده.
مثلا فيلد نام:رضا - علي - احمد - فريد - ......... رو تو اين فيلد دارمو اونو به combobox توي vb6 نسبت دادم ولي وقتي اونو باز ميكني فقط رضا رو نشون ميده . چه comboxi باس از كومپوننتها بيارم؟؟؟؟؟
كمكم كنييييد

[skh1300]

این برای لیست باکس هیچ فرقی با کمبو نداره فقط اسمش را عوض کن


Option Explicit
Private Sub Form_Load()
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
Dim dbname As String

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "data.mdb"
Set db = OpenDatabase(dbname)

' List the table names.
For Each td In db.TableDefs
List1.AddItem td.Name
Next td

db.Close
End Sub

موفق موید باشی