ماهو الخطأ في هذا الكود ؟ وهل يوجد له بديل ؟

السلام عليكم

انا استخدم كريستال ربورت 10 وصممت تقرير حسب ما اريد

واستخدم هذا الكود تحت زر طباعة :

CrystalReport1.DataFiles(0) = "db1.mdb"
CrystalReport1.ReportFileName = "Report1.rpt"
CrystalReport1.Action = 1

وعند الضغط على زر الطباعة لتنفيذ هذا الكود يخرج لي خطا كما في الصورة الموجوده بالمرفقات

علما بانني استخدمت هذا الكود مع كريستال ريبورت 8 وشغال لكن اريده ب10

بانتظار حلولكم