مشكلة حول قواعد البيانات فى VB

بسم الله الرحمن الرحيم
بعدما انشأت قاعدة بيانات من ضمن حقولها حقل يسمى ID
واضفت Data1 وتم ربطها بقاعدة البيانات واضفت textbox وكتبت هذا الكود

كود:

---

Private Sub Form_Load()
Text1.DataSource = Data1
Text1.DataField = ID
End Sub

---

ظهرت رسالة تقول لى وجود خطأ
ما سبب هذا الخطأ وكيف يمكن حله؟؟

كود:

---

Text1.DataField = "ID"

---

ما دمت تستعمل الأداة Data من الأحسن أن تقوم بإضافة قيم خصائص الأدوات مباشرة من لوحة الخصائص عند التصميم و ليس خلال تنفيذ البرنامج فيما عدا الخاصية DatabaseName لأن قيمتها تكون عادة نسبية مثلا

كود:

---

Data1.DatabaseName=App.path & "\Base.mdb"

---

اذا من الافضل استخدام Microsoft DAO لكنه مع الاسف غير موجود فى components ولا اعرف السبب!!

أضف Reference لـ Microsoft Data Access Objects 3.51 من قائمة Project و الباقي عن طريق الكود...........

كود:

---

Dim db as Database
dim rs as Recordset
Set db = OpenDatabase(App.Path & "\MyData.mdb")
...........
...........

---

فيما يخص الـ DAO فهي صالحة لنسخ البيسك السابقة لكن مع الفجوال بيسك 6 فيستحسن استعمال الـ ADO لأنها أخف و تدعم أغلب أنساق قواعد البيانات المعروفة