واجهتني رسائل خطأ مشكلة عرض تقرير لأكثر من جدول إذا أمكن تعديل الكود

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

أسعد الله أوقات الجميع

هذا الكود استخدمه في برنامجي ويعطيني رسالة خطأ ولم أعرف كيفية تصحيح الخطأ لأني لا أعرف منطق اسخدام الجزئية الخاصة بال SQL

أرجو المساعدة في تعديلها وشكراً

Set tmp1 = db.QueryDefs("Sql")

'tmp1.SQL = "SELECT * FROM Tab INNER JOIN Tab1 ON Tab.No = Tab1.No JOIN Tab2 ON Tab.No = Tab2.No INNER JOIN Tab3 ON Tab.No = Tab3.No WHERE Tab.No='" & VN.Text & "'"

Rp.ReportFileName = App.Path & "\A1.rpt"

Rp.Action = 1

الصور المرفقة

إذا أمكن مساعدتي في حل مشكلة ظهور هذه الرسالة وتعديل الكود المرفق لعرض التقرير

شكراً جزيلاً