$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;