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