my $dbh = DBI->connect('DBI:ODBC:Driver={SQL Server};server={170.10.10.10};database={Copyediting};','username','password')
    or die "Can't connect to $data_source: $DBI::errstr";
my ($sql,$sth);
	  $sql = "Select * from varianceDB where StyleName='".$Style_Name."' and PatternName='"."DEFAULT"."' and VarianceName='"."DEFAULT"."' and Title='".$Pattern_Name."'";
	$sth = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr";
	# Execute the statement.
	$sth->execute();
	
	my $ref = $sth->fetchall_arrayref({});