زر التعديل غير شغال

لدي الكود التالي على الزر التعديل لكن لا تتم العملية بنجاح تظهر رسالة قاعدة البيانات غير متصلة

أرجو من أخوتي الأفادة

Try

If MessageBox.Show("هل تريد فعلاً تعديل السجل ?", "تحذير", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = MsgBoxResult.Yes Then

con.Open()

cm.CommandText = "update customers set cus_Name='" & NameTxt.Text & "',Country='" & CountryTxt.Text & "',City='" & CityTxt.Text & "',MOBILE_NO=" & MobileNoTxt.Text & ",phone_No=" & PhoneNoTxt.Text & ",EMail='" & EMailTxt.Text & "',Po_Box=" & POBoxTxt.Text & ",Address='" & AddressTxt.Text & "',Company='" & CompanyTxt.Text & "',Job='" & PositionTxt.Text & "',Registration='" & RegisterTxt.Text & "',Reg_Type='" & RegTypeTxt.Text & "',Date='" & RegDateTxt.Text & "',Delegate_Name='" & DelegateNameTxt.Text & "',Delegate_Mobile=" & DelegateMobileTxt.Text & "',Cus_Case='" & StateTxt.Text & "',Authority=" & AuthorityTxt.Text & " where cus_no=" & NoTxt.Text

cm.Connection = con

cm.ExecuteNonQuery()

ActionStatusLabel.Text = "تمت عملية التعديل بنجاح"

Timer1.Start()

End If

Catch ex As Exception

ActionStatusLabel.Text = "عذراً قاعدة البيانات غير متصلة"

Timer1.Start()

Finally

con.Close()

End Try