Run-time error'-2147217887(80040e21) hatası

[eneskus]

Arkadaşlar aşağıdaki kodu çalışltırınca resimdeki hatayı almaktayım.

Sub AMBAR_ÇIKIŞ_BONOSU_KAYIT_DOSYASINDAN_CIKIŞ_BONOSU_TARİHLERİNİ_AL()
    Dim con As Object, rs As Object
    Dim dosya As String, sorgu As String
    Dim S2 As Worksheet
    
    Set S2 = Sheets("YENİ MAL. MUT.")
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    dosya = ThisWorkbook.Path & "\AMBAR ÇIKIŞ BONOSU KAYIT.xlsm"
        con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dosya & _
        ";Extended Properties=""Excel 12.0;hdr=NO"""
        sorgu = "Select * FROM [AMBAR ÇIKIŞ BONOSU VERİ GİRİŞİ$V2:V33]"
        rs.Open sorgu, con, 1, 1
        S2.Range("A8").CopyFromRecordset rs
    rs.Close: con.Close
    Set con = Nothing: Set rs = Nothing
    dosya = vbNullString: sorgu = vbNullString
End Sub

Ancak Ynı kod ile u2.u33 arasını sorunsuz almakta sorunu çözemedim.

 

[eneskus]

Teşekkür ederim arkadaşlar sorunu çözdüm eğerli tarih alan formülü metne çevirle yapınca sorun çözüldü.

Tabiki Korhan beyin yardımları sayesinde Teşekkür ederim Korhan bey.