Public Shared Sub InsertCustomerCont(ByVal strMail_Code As String, _
                           ByVal strMail_Title As String, _
                           ByVal strMail_Name As String, _
                           ByVal strMail_Surname As String, _
                           ByVal strMail_Company As String, _
                           ByVal strMail_Street As String, _
                           ByVal strMail_City As String, _
                           ByVal strMail_PostCode As String, _
                           ByVal strMail_Country As String, _
                           ByVal strMail_Phone As String, _
                           ByVal strMail_Fax As String, _
                           ByVal strMail_Email As String, _
                           ByVal strMail_Position As String)
        Dim qry As String
 
 
 
        qry = "INSERT INTO MailingBKP1(Mail_Code,Mail_Title,Mail_Name," & _
                             "Mail_Surname,Mail_Position,Mail_Company,Mail_Str" & _
                             "et,Mail_City," & _
                             "Mail_PostCode,Mail_Country,Mail_Phone,Mail_Fax,M" & _
                             "il_Email)" & _
        "VALUES " & _
         "('" & strMail_Code & "','" & strMail_Title & "', " & _
          "'" & strMail_Name & "','" & strMail_Surname & "','" & _
          strMail_Position & "','" & strMail_Company & "', " & _
          "'" & strMail_Street & "','" & strMail_City & "','" & _
          strMail_PostCode & "','" & _
          "'" & strMail_Country & "','" & strMail_Phone & "', '" & strMail_Fax _
          & "' , '" & strMail_Email & "')"
 
        ExeQueryInsertOrUpDate.exequteQueryOnCalibrationDB(qry)

Private Sub cmd_save_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_save.Click
 
 
        UpDateQuery.InsertCustomerCont(Mail_CodeTextBox.Text, _
          Mail_TitleTextBox.Text, Mail_NameTextBox.Text, _
        Mail_SurnameTextBox.Text, Mail_PositionTextBox.Text, _
        Mail_CompanyTextBox.Text, Mail_StreetTextBox.Text, _
        Mail_CityTextBox.Text, Mail_PostCodeTextBox.Text, _
        Mail_CountryTextBox.Text, Mail_PhoneTextBox.Text, Mail_FaxTextBox.Text, _
        Mail_EmailTextBox.Text)
 
 
 
    End Sub