my $datasource = 
"driver=Microsoft Access Driver (*.mdb);dbq=c:\\s\\database.mdb";
my $username = 'admin';
my $password = '';
my $dbh = DBI->connect( "dbi:ODBC:$datasource", $username, $password,
                        { LongReadLen => 1500, RaiseError => 1 })
                || die "Error connecting: $!";