[hago]

مع انى لااتعامل مع الـــ dao لاكين انا بشرحلك
فى حدث Form_Load

كود :

Set db = OpenDatabase(App.Path & "\Data\data1.mdb")Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks")
Do While rs.EOF = False
Combo1.AddItem rs![category]
rs.MoveNext
Loop

شرح الكود ببساطة : الاتصال بقاعدة البيانات عن طريق المسار الذى موجود فيه القاعدة ... فتح الجدول المراد العمل من خلاله...استخدام جملة التكرار Do لمئ المكبو
اما فى حدث الـــ Combo1_Click

كود :

Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where  category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]

شرح الكود ببساطة : بعد فتح الجدول اذهب الى الحقل وهات النص الموجود فى Combo1 من قاعدة البيانات
اختيار القيمة المقابلة للــعنصر الموجود فى الـــ Combo1 وضعها فى Text1
بالتوفيق