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