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";