$dbh = DBI->connect("dbi:ADO:$database",$user, $password);
 || die "Cannot connect: $DBI::errstr\n" unless $dbh
  return;
$dbh->disconnect();