our $dbopts = { AutoCommit=>0, LongTruncOk => 1, LongReadLen => 255 }; our $dsn = GBPVR::CDBI::mdb2dsn('C:\foo.mdb'); MyPackage::CDBI->set_db('Main', "dbi:ODBC:$dsn", '', '', $dbopts ); sub mdb2dsn { my $mdb = shift; return 'driver=Microsoft Access Driver (*.mdb);dbq=' . $mdb; } 1;