ConnectionModule.Sql1.ExecNonQuery("UPDATE Service_Booking_Form SET Booking_Name = '" & TextName.text &  "',Bookiing_Address ='" & TextAddress1.text & "',[Prefered_Date] ='" &  BookDate.text  &"',[Contact_Name] ='" &  TextContact.text   & "',[Contact Number] ='" &  TextContNum.text   & "',[Mobile_Number] ='" &  TextMobileNum.text  &"',[Boiler_Type] ='" &  TextArea2.text  &"',[Boiler_Make] ='" &  TextArea1.text   &"' ,[Booking_Date] ='" & BookDate.text  & "'	,[Service_Time] ='" &  SerTimeBox.Selecteditem   &"'',[Notes_For_Engineer] ='" &  TextserviceNote.text   &"',[Service_Engineer] ='" &  EngineerBox.Selecteditem   &"',[Service_Zone] ='" &  ServiceZone.Selecteditem   &"'',[Service_Date] ='" &  ServiceDate.Date  &"',[Service_Postcode] ='" &  TextPostcode.text   &"',[Booking_Colour] ='" &  hexColor   &"',[Booking_Status] ='" &  StatusBox.Selecteditem   &"',[Status_Colour] ='" &  hexColor  &"',[Booking_Note] ='" &  TextserviceNote.text   &"',[Call_Number] ='" &  ServSlotBox.Selecteditem & "',[Service_Type] ='" &  servTypeBox.Selecteditem & "',[Type_Colour] ='" &  hexColor & "',[Contact_Email] ='" &  TextEmail.text & "',[Booking_Title] ='" &  TitleBox.Selecteditem & "',[Last_Text_Date] ='" &  ServiceDate.Date& "',[Job_Number] ='" &  TextJobNum.text & "',[Booked_By] ='" & TextBookedBy.text & "'	WHERE [Job_Number] ='" &  TextJobNum.text & "'")