VB读取Oracle出现乱码,怎么解决?

我们在vb6中使用
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST.GECIS-ASIA.GE.COM", "yms/yms", 0&)
创建读去Oracle数据对象

写入数据库的内容都是正常的,但是使用
Set OraDynaset = OraDatabase.CreateDynaset(strSQL, 0&),便利结果集时候,
发现从结果集合中获得的数据却出现了乱码

仔细看了看代码,数据都是直接从OraDynaset中获得的,中间我并没有做处理,我想应该是数据库访问对象返回内容的编码出了问题,但是不知道怎么设置OraDatabase对象,

请哪位高手不吝赐教!!!!!! --------------------编程问答-------------------- 那你就用上面的好了。

ORACLE是有区域设置的。看看是否设置为中文区域了。 --------------------编程问答-------------------- 有问题请先GOOGLE,BAIDU --------------------编程问答-------------------- 没遇到过这种情况.

补充：VB ,  数据库(包含打印，安装，报表)