my $ado_dsn='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\Path\To\Database.mdb';
my $ado_usr='my username';
my $ado_pwd='my pasword';
my $ado_dbh = DBI->connect("dbi:ADO:$ado_dsn", $ado_usr, $ado_pwd ) or die $DBI::errstr;