my $DSN = "dbi:mysql:$MyDB";
$ProgOption{dbh}=DBI->connect($DSN, $User, $PW, {PrintError => 0, RaiseError => 1 });