中文问题-----求救！！在线等待！！！11

[sos_hawk]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String

str = "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=SCM;Data Source=pc0272"
cn.Open str
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic

rs.Open "select * from ediinfolist"
rs.save "d:\test.xml", 1

请问各位大虾，如果数据库表记录中有汉字，在test.xml中以乱码显示，为什么？该如何解决？

[yoki]

rs.Open "select * from ediinfolist"
改为
rs.Open "select N'字段1'，N'字段2'，N'字段3'.... from ediinfolist"

[sos_hawk]

to yoki(小马哥)
我试了一下，不行呀！

[lbd8848]

在保存xml文件时将xml头改为以下代码试试
<?xml version="1.0" encoding="gb2312"?>

[sos_hawk]

to lbd8848(lbd)
该语句(rs.save "d:\test.xml", 1
)是新生成一个挡，怎么加“<?xml version="1.0" encoding="gb2312"?>
”？

[lbd8848]

保存完毕后,再通过
使用Scripting.FileSystemObject读取xml文件,对其进行修改