eval{$db = DBI->connect("DBI:ODBC:$config{db_odbc}", $config{db_user}, $config{db_pass}, {PrintError=>0, RaiseError=>1, AutoCommit=>0})};

error("Could not connect to database:", map{" DBI: $_"} split /\n/, $DBI::errstr) if $@;