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

[d.a.m.h]

بسم الله الرحمن الرحيم
بعدما انشأت قاعدة بيانات من ضمن حقولها حقل يسمى 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"

[d.a.m.h]

اذا من الافضل استخدام 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 لأنها أخف و تدعم أغلب أنساق قواعد البيانات المعروفة