( Help ) Sử dụng CopyFromRecordset copy data từ localhost vào excel bị lỗi không copy đầy đủ

[catlo]

Mình có đoạn code này

Sub Check_info123()
    Dim objAdoConn As Object, objAdoRcSet As Object
    Dim strAdoConn As String, strSQL1 As String, input_name As String
    'check_ngay = (select max(d_dl) from data_qlhui)
    input_name = Worksheets("Checkinfo").Range("B1")
    Application.ScreenUpdating = False
    Set objAdoConn = CreateObject("ADODB.Connection")
    Set objAdoRcSet = CreateObject("ADODB.RecordSet")
    strAdoConn = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=data_hui;" & _
    "User=root;Password=root;Option=3;"
    objAdoConn.Open strAdoConn
        With objAdoRcSet
            strSQL1 = "SELECT * FROM `data_qlhui` WHERE user ='" & input_name & " ' " & _
            " Order BY chen"
            .Open objAdoConn.Execute(strSQL1)
            If .EOF Then  'neu khong ton tai
                MsgBoxUni UNC("ko co")
            Else     
                Dim i As Long
                For i = 0 To objAdoRcSet.Fields.Count - 1
                    Worksheets("Checkinfo").Cells(6, i + 1).Value = objAdoRcSet.Fields(i).Name
                Next i
                Worksheets("Checkinfo").Range("A4").CopyFromRecordset objAdoRcSet
                Worksheets("Checkinfo").Columns("A:S").AutoFit
            End If
            objAdoRcSet.Close
        End With
    objAdoConn.Close
    Set objAdoRcSet = Nothing
    Set objAdoConn = Nothing
    Application.ScreenUpdating = True
End Sub

Đang bị phát sinh lỗi, khi copy ra excel nó chỉ copy dữ liệu đầy đủ với row đầu tiên tương ứng với ID, G_chen,G_user, còn các rows sau đó là chỉ copy được ID còn G_chen, G_user không copy, anh chị ai biết lỗi fix giúp mình với. (Có đính kèm hình kết quả paste vô excel và query từ localhost

 

[thaytu]

Dim objAdoConn As Object, objAdoRcSet As Object
bạn thử check qua As ADODB.Recordset thử xem