my $sth = $dbh->prepare(
    'update Data set Tag1=?, Tag2=? where ID=?'
  );
  $sth->execute(StandardizeString($Tag1),StandardizeString($Tag2), $ID_read);