my $ID_read=1;
my $dbh = DBI->connect( "dbi:SQLite:$DbFullPath", '', '', { sqlite_unicode => 1 }  ) || die "Cannot connect: $DBI::errstr";
$dbh->do ('UPDATE Data SET Tag1=?, Tag2=? WHERE ID=$ID_read VALUES (?, ?)',
undef,
standardize($Tag1), standardize($Tag1));
$dbh->disconnect;