رسالة خطا عند الضغط علي مفتاح الغاء في Inputbox

ياريت تضع الكود لنريك الخطأ

بصراحة مو واضح لي شيء معين

دي رسالة الخطأ

دة الكود

Dim x As String
		x = InputBox("من فضلك أدخل كود الموظف المراد تعديل بياناتة ", "تعديل بيانات موظف")
		Dim f1, f2, f3, f4, f5, f6, f7, f8, f9 As String
		f1 = "'" & TextBox1.Text & "'"
		f2 = "'" & TextBox2.Text & "'"
		f3 = "'" & DateTimePicker1.Value & "'"
		f4 = "'" & TextBox3.Text & "'"
		f5 = "'" & DateTimePicker2.Value & "'"
		f6 = "'" & ComboBox1.Text & "'"
		f7 = "'" & TextBox4.Text & "'"
		f8 = "'" & ComboBox2.Text & "'"
		f9 = "'" & ComboBox3.Text & "'"
		s = "UPDATE ُEmp SET SName = " & f2 & ", SGender = " & f6 & ", SBirth = " & f3
		s = s & ",SAdress = " & f4 & ", SPhone = " & f7 & ", SDate = " & f5
		s = s & ",SDate = " & f7 & ", SManage = " & f8 & ", SRank = " & f9
		s = s & "WHERE SCode=" & f1
		cmd.CommandText = s
		h = cmd.ExecuteNonQuery

الخطأ في السطرين

s = s & ",SAdress = " & f4 & ", SPhone = " & f7 & ", SDate = " & f5
		s = s & ",SDate = " & f7 & ", SManage = " & f8 & ", SRank = " & f9

قمت بإسناد قيمة لـ SDate مرتين صحح العبارة بما هو مناسب لتطبيقك

ثم هناك ملاحظة عامة للجميع وليس لك فقط لماذا تقومون باستخدام أسماء متغيرات لاتعني شيئا مثل s و f7 لماذا لاتستخدم متغيرات ذات معنى ليسهل فهم كودك وقراءته ومتابعته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

مشكور جدا ياخ محمد سامر جزاك الله كل خير في هذا الشهر الكريم اعادة الله عليك وعلي الامة الاسلامية بالخير واليمن والبركات