Sub hh()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim con As ADODB.Connection
Dim dbConnStr As String
dbConnStr = "Driver={MySQL ODBC 5.2 ANSI DRIVER}; SERVER=localhost; DATABASE=landscape; USER=root; PASSWORD=mypass;"
Set con = New ADODB.Connection
con.Open dbConnStr
sql = "SELECT '鏉变含閮�' AS tokyou"
rs.Open sql, con
Debug.Print rs!tokyou
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub

返回类似“鏉便兓”的信息，

我已经尝试过：
1.使用adodb.stream将查询字符串转换为utf8，否则将查询结果转换为
unicode。2.执行“ set names = unicode;” 在查询
3中。添加“ charset = unicode;” 在打开数据库连接时使用连接字符串，

但是它们都不起作用，请您能帮我，谢谢！