sub msa_connect {
    my $DSN = 'driver=Microsoft Access Driver (*.mdb);dbq=';
    my $dbh = DBI->connect(
        "dbi:ODBC:$DSN$config{'db_name'}",
        $config{'db_user'},
        $config{'db_pwd'},
            {
                PrintError	    => 0,
                RaiseError	    => 1,
                LongReadLen	    => $config{'LongReadLen'},
                LongTruncOk	    => 0
            }
    ) or oops($DBI::errstr);
    
    return $dbh;
}