use strict;
use DBI;
my $dbfile = "c:/temp/Database.accdb";
my $dbh_ok = 'yes';
my $dsn = 'driver=Microsoft Access Driver (*.mdb, *.accdb);dbq='.$dbfile;
my $dbh = DBI->connect("dbi:ODBC:$dsn", '', '') 
   or ($dbh_ok = 'no');
if($dbh_ok eq 'no') {
	print "Access DBI connection failed - error\n$DBI::errstr\n";
} else {
	print "Access DBI connection made - handle <$dbh>\n";
}