عمل قيمة رقم عميل متغير لعرض معلومات عنه

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

أريد عمل تقارير عن حجوزات عميل معين وقيمة رقم العميل متغيرة .......... اخترت في خصائص Command في Dataenviroment لاختيار SQL

ووضعت عبارة الـ SQL ولكن كيف أجعل قيمة رقم العميل متغيرة ؟؟

ووضعت هذا الكود في زر فتح التقرير ولكن تظهر لي نافذة خطا !

Dim SNo_cust As String
Dim sSQl As String
sSQl = " SELECT customers.No_cust, customers.Ename_cust, Boocking.No_b, Boocking.Date_b, Boocking.Date_sev, B_sev.No_sev, Services.Ename_sev"
FROM Services INNER JOIN (customers INNER JOIN (Boocking INNER JOIN B_sev ON Boocking.No_b = B_sev.No_b) ON customers.No_cust = Boocking.No_cust) ON Services.No_sev = B_sev.No_sev;
SNo_cust = InputBox$("ÃÏÎá ÑÞã ÇáÚãíá ")
If SNo_cust <> " " Then
sSQL=sSQL&"where No_cust='"&SNo_cust&"'"

أرجوا منكم مساعدتي وإرشادي لعمل المطلوب

وجزاكم الله خيرا