فتح السجلات في الاكسس بكود فيجيول بيسك

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

الاخوة الكرام انا بحاجة كبيرة لمساعدة وبأسرع وقت ، لقد عملت بمؤسسة حديثاً وطلب مني عمل برنامج لنظامها عندما اقةم بكتابة الكود التالي :

 Dim Dbcs As Database
 Dim DRS As Recordset
 Set Dbcs = Currentdb()
 Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)

 DRS.AddNew
 DRS!AssessmentNo = 25
 DRS.Update
 DRS.Close
 Dbcs.Close

يعطيني خطء على الجملة رقم 4 وهي الجملة :

Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)

ورسالة الخطء تقول :

run-time error 13 :

Type mismatch

مع العلم بأن ADO مفعله من قائمة المراجع

انا بإنتظار الاجابة بأسرع وقت

مع خالص الشكر والتقدير

بشار ابوشمعه