strResult = Job.GetString
If MySQLConnection.Compress = 1 Then
Dim cs As CompressedStreams
Dim compressed(), decompressed() As Byte
Dim B64 As Base64
Log(strResult.Length)
compressed = B64.DecodeStoB(strResult)
Log(compressed.Length)
decompressed = cs.DecompressBytes(compressed, "zlib")
strResult = BytesToString(decompressed, 0, decompressed.Length, "UTF8")
End If