问下adodb.Stream写文件时的乱码

如下代码 
Dim io_stream As adodb.Stream,sc 
Set io_stream = New adodb.Stream 
io_stream.Type = 2 
io_stream.Charset = "utf-8" 
io_stream.Open 
io_stream.LoadFromFile App.Path & "\templates\blogspot.xml" 
sc = io_stream.ReadText 
io_stream.Close 
io_stream.Open 
io_stream.WriteText sc 
io_stream.SaveToFile App.Path & "\blogs\" & blogname & "\blogspot.xml", 2 
Set io_stream = Nothing 
运行后打开产生的文件，老是出现第一个字符的乱码，为什么呢？怎么解决呢？我什么 
都没做，只是读文件后写入，为什么第一字符会改变成一个乱码呢？