VBS GetChunk()方法数据乱码！求解决方案

VBS GetChunk()方法数据乱码！急求
Chunk = l_objRSet.Fields("XML_DOC").GetChunk(ChunkSize)
小弟在VBS中利用这条语句进行取"XML_DOC"这个字段的数据，"XML_DOC"字段是BLOB型的数据，这个数据是XML型的，可是出现的数据是乱码，还请各位高手指点下.......

[解决办法]
帮你顶顶～
[解决办法]

VBScript code

Chunk = l_objRSet.Fields("XML_DOC").GetChunk(ChunkSize) Dim strXMLWith CreateObject("ADODB.Stream")    .Mode = 3    .Type = 1    .Open    .Write Chunk    .Position = 0    .Type = 2    .CharSet = "UTF-8"   ' 根据实际的字符集设定, 当然也可能是 GBK, big5 等等     strXML = .ReadText(-1)    .CloseEnd WithResponse.Write strXML