my ($rc) = $sql_obj->sql($query);
return ($sql_obj, undef) unless $rc;
return ($sql_obj, "".Win32::ODBC::Error())  unless (Win32::ODBC::Error() =~ /Communication link failure/);
my($sql_obj) = $self->connect($server, $user, $password);
return (undef, "Cannot reconnect") unless ($new_sql_obj);
$rc=$sql_obj->sql($query);
	
return ($sql_obj, "".$rc) if ($rc);
return ($sql_obj, undef);