Query = "INSERT INTO surveys VALUES (NULL, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, NULL)"
Main.SQL1.ExecNonQuery2(Query, Array As String(CustName.Text, CustEmail.Text, DoesFit.Value, IsCombi.Value, Eletrical.Value, Gas.Value, IsCompliant.Value, HasBond.Value, Plastering.Value, Boarding.Value, ProdChange.Text, AddWork.Text, Unforseen.Value, Txtdate.Text))
Main.SQL1.ExecNonQuery2("UPDATE surveys SET Custsig = ? WHERE Name ="&CustName.Text, Array As Object(Buffer))