Lọc dữ liệu bằng ADODB copy bằng Recordset bị lỗi font chữ (2 người xem)

[NGOCTOAN]

Chào các Anh/Chị,

Các Anh chị cho em hỏi em có code 1 đoạn sau tra cứu dữ liệu nhưng kết quả tra cứu font unicode toàn bị lỗi, trong đó dùng mảng thì lại không lỗi, em trích dẫn Sub và file kèm :

Sub TestExcel()
Dim cn As Object, rst As Object
I = Sheet2.[D3] ' TN27857
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=" & ThisWorkbook.FullName & ";")
Set rst = cn.Execute("select * from [DATA$] WHERE MA_HOSO ='" & I & "' ")
Sheet2.[A6].CopyFromRecordset rst
Set rst = Nothing
cn.Close
End Sub

Nhờ các Anh/chị xem có cách nào dùng ADO như thế này mà không bị lỗi font không.

Cảm ơn.

Ngoctoan

 

[doveandrose]

sửa kết nối

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _
    ";Extended Properties=""Excel 12.0;HDR=yes;"";"

 

[Fỉmament_XD]

Cảm ơn ba,nj @doveandrose câu trả lời rất hay ạ