【求助】如何通过VBA更改客户端字符集？

我在连接Oracle并获取数据的时候发现里面涉及汉字的部分全部是乱码。很显然是字符集的问题。我现在想通过代码编写一个过程。实现先“判断”服务器端的字符集是否和客户端的字符集一致。如果一致则进行更改。
请大家帮忙。先谢谢啦！