my $dbh = do {
    my $access_db_file   = 'file.mdb';
    my $Provider='Microsoft.Jet.OLEDB.4.0';
    my $db_passwd = '';
    DBI->connect(   "dbi:ADO:Provider=$Provider;
                     Data Source=$access_db_file;
                     Jet OLEDB:Database Password=$db_passwd;",
                    '',
                    '',
                    {
                      PrintError => 0,
                      RaiseError => 1,
                      AutoCommit => 0,
                      LongReadLen => 1024**2,
                    }
                 );
};