my $dbh;
my $DSN = "driver={SQL Server};Server=$opts{server};database=$database;";
if ($dbh = DBI->connect("dbi:ODBC:$DSN","$opts{user}","$opts{password}")) {
	&Logger ("...Success: connected to database $opts{server}\\$database\n");
}
else {
	&Logger("ERROR       - Cannot connect to DB: $dbh->errstr()\n");
}