excel 宏，用sql读取csv文件内容,select出来的结果乱码

在excel的宏中，用sql语句去读取另一个csv文件的内容，但是读取出来的数据乱码：
vba代码为：
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source =" & Mypath & ""
SQL = "select * from [" & Myfile & "] "
Set rst = cnn.Execute(SQL)

For a = 0 To rst.Fields.Count - 1
Cells(2, a + 1) = rst.Fields(a).Name
Next
Range("A3").CopyFromRecordset rst

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

读取的csv源文件数据如图片：

img

读取之后recordset复制到excel文件变成了图片中的乱码：

img
请问这个问题该怎么解决。

改一下文件编码集

img