"鏉庝附"与"李丽"(UTF-8相关)解决办法

鏉庝附与李丽(UTF-8相关)保存字段“李丽”，在数据库查看结果为“鏉庝附”，可能是编码格式引起的，在百度中

"鏉庝附"与"李丽"(UTF-8相关)
保存字段“李丽”，在数据库查看结果为“鏉庝附”，可能是编码格式引起的，在百度中搜索“鏉庝附”给出的结果是“李丽”，请问在VB中怎么将“鏉庝附”转化为“李丽”，谢谢！

[解决办法]
李丽 ——（UTF-8 编码）——> E6-9D-8E-E4-D8-BD ————（当作 GB-2312 解码）——> 鏉庝附
你需要：鏉庝附 ————（GB-2312 编码）——> E6-9D-8E-E4-D8-BD ——（UTF-8 解码）——> 李丽

VB code

'复制 http://topic.csdn.net/u/20090925/20/11a38dbe-b3be-4323-9635-147e91356379.html 中的 Function StrFromUtf8()'引用  Microsoft ActiveX Data Objects 2.5 LibrarySub Main()    Dim a() As Byte    a = StrConv("鏉庝附", vbFromUnicode)    Debug.Print StrFromUtf8(a)End Sub
[解决办法]
VB codeOption ExplicitPrivate Sub Form_Load() Dim a() As Byte    a = StrConv("鏉庝附", vbFromUnicode)    Debug.Print StrFromUtf8(a)End SubFunction StrFromUtf8(Utf8() As Byte) As String    Dim aBOM(2) As Byte    aBOM(0) = &HEF    aBOM(1) = &HBB    aBOM(2) = &HBF    Dim oStream As Object    Set oStream = CreateObject("Adodb.Stream")    oStream.Open    oStream.Type = adTypeBinary    oStream.Write aBOM    oStream.Write Utf8    oStream.Position = 0    oStream.Type = adTypeText    oStream.Charset = "UTF-8"    StrFromUtf8 = oStream.ReadText()    oStream.CloseEnd Function