my $db = "/home/test/a.mdb"; my $DSN = "driver=Microsoft Access Driver (*.mdb);dbq=$db"; my $dbh = DBI->connect("dbi:ODBC:$DSN",'','') or die "Can't connect to $DSN $DBI::errstr\n";