use DBI;
use DBD::ODBC;

my $DBFile= q(TestLog.mdb); 

if (-e $DBFile){
   print "Using existing database:$DBFile\n";
}
my $DSN = "driver=Microsoft Access Driver (*.mdb);dbq=$DBFile";
my $dbh = DBI->connect("dbi:ODBC:$DSN", undef,undef) or die "$DBI::errstr\n";