my $userid   = q{};
    my $password = q{};    
    my $strCnn = "Provider=SQLOLEDB; Data Source=$Servername; Initial Catalog=$Tablename; Integrated Security=SSPI;";
    $dbh = DBI->connect( "dbi:ADO:$strCnn", $userid, $password, { RaiseError => 1, AutoCommit => 0 } ) or 
        croak "Cannot connect: $DBI::errstr";

##</code><code>##

	my $data_source = qq/dbi:ODBC:driver={SQL Server};Server=$Servername;database=$DataBaseName;Regional=No;/;
	my $user = q//;
	my $password = q//;
	$dbh = DBI->connect($data_source, $user, $password)
			  or die "Can't connect to $data_source: $DBI::errstr";