# Open the database:
my $dbh = DBI->connect
  ('dbi:ADO:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' . $db_file);