$DSN = 'dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq='.$Database;
$DBH = DBI->connect($DSN, undef, undef) 
       || ExitProg(ERR->{odbc},'['.$DBI::errstr.' - '.$DBI::err.']');
$DBH->{LongReadLen}=2048;
##</code><code>##

$DSN = 'dbi:ODBC:driver={SQL Server};server={'.$Server.'};database={'.$Database.'}';
$DBH = DBI->connect($DSN, undef, undef) 
       || ExitProg(ERR->{odbc},'['.$DBI::errstr.' - '.$DBI::err.']');