Select Code to Download

use DBI;
sub open_conn
...
    my $dbh = DBI->connect("dbi:ADO:$strConnect", '', '')
        or die "Can't connect: $DBI::errstr\n";
}