كيف اضيف الاسماء الموجوده في دليل الهاتف الى القائمة الموجوده على سطح الفورم؟؟؟

السلام عليكم ورحمة الله وبركاته

اخي قم بوضع الكود التالي في حدث الـ Form Load

Data1.DatabaseName = App.Path & "\db2.mdb"
Data1.RecordSource = "select * from DIF"
Data1.Refresh

Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
List1.AddItem (Data1.Recordset("athen1"))
Data1.Recordset.MoveNext
Loop

============

الى اللقاء

سيدي الكرم

السلام عليكم ورحمة وبركاته

الف شكر وتقدير مني