Lỗi unexpected error from external database driver (22) khi sử dụng ADO (1 người xem)

[tan.ngohoangquoc]

Em dùng excel 2013 bản 32 bit, thử viết lệnh ADO dùng để lấy dữ liệu trong 1 file có format 2003 không dc. Dùng để lấy cùng file đó nếu để format xlsx thì chạy. Mọi người giúp em phần này với.

    Dim cn As Object, rst As Object
    Dim LastRow As Long
    
    Set cn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    
    With cn
        If Val(Application.Version) < 12 Then
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                                & "Data Source=" & iFile & ";Extended Properties=""Excel 8.0;HDR=No"";"
        Else
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                                & "Data Source=" & iFile & ";Extended Properties=""Excel 12.0;HDR=No"";"
        End If
        
        .Open
    End With