在VB（Visual Basic）中，可以使用ADO Stream对象来进行字符串的编码转换。以下是一个示例代码，展示了如何将GB2312编码的字符串转换为Unicode编码：
```vb
Function GB2312ToUnicode（str）
Dim objStream As Object
Set objStream = CreateObject（"adodb.stream"）
objStream.Type = 1 ' adTypeText
objStream.Open
objStream.Write str
objStream.Position = 0
objStream.Charset = "gb2312"
GB2312ToUnicode = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
```
同样地，如果你需要将Unicode编码的字符串转换为GB2312编码，可以使用以下代码：
```vb
Function UnicodeToGB2312（str）
Dim objStream As Object
Set objStream = CreateObject（"adodb.stream"）
objStream.Type = 1 ' adTypeText
objStream.Open
objStream.Write str
objStream.Position = 0
objStream.Charset = "unicode"
UnicodeToGB2312 = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
```
这些函数分别用于将GB2312编码的字符串转换为Unicode编码，以及将Unicode编码的字符串转换为GB2312编码。在使用这些函数时，请确保已经正确引入了ADO库，并且处理了可能的异常情况。