Kapı excelden Sorgulanan Veriyi Accese Insert ile kaydetme

[ASMET67]

Merhaba.
C sürücüsünde c:\ANAVERI\ArtikelAnaveri_25Nov2021_0021.xlsx adında kapalı bir Excel dosyam var Yine C sürücüsünde AnaVeriDataBase adında bir Access Dosyam var
Kodların bulunduğu açık excelden kapalı olan Excele sorgu gönderip sorgu sonucunu Access dosyasına İnsert ile ekleyebiliriyim.

Siteden aldığım aşağıdaki kodu kendime göre revize edeyim dedim ama çözemedim. Kodların olduğu açık excelden Belirli

FROM [Sheet1$A1:C31]

hücre aralığı verirsem çalışıyor ama kapalı dosyadan işlem yapamıyorum.
Yardımlarınız için şimdiden teşekkürler.

 Dim cn As Object
    
 Set s1 = ThisWorkbook.Worksheets(Veri.Name)
    Set s2 = ThisWorkbook.Worksheets(Data.Name)
        AcsesYol = s2.Cells(15, "U").Value
        AccessDataBase = s2.Cells(16, "U").Value

   
 DatabasePath = AcsesYol & "\" & AccessDataBase 
    If Dir(DatabasePath) = "" Then
        MsgBox DatabasePath & " bulunamadi, programdan cikilacak !", vbCritical, "ExcelToMDB"
        Exit Sub
    End If

    Set cn = CreateObject("ADODB.Connection")
    
    On Error Resume Next
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath 
        cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DatabasePath 
    On Error GoTo 0

Sorgu = "INSERT INTO AnaveriTabble ([Artikel], [Artikel_kisa_metni], [GTIN_kodu], [Sektor], [Sektor_Tanim], [Reyon]) SELECT [Artikel], [Artikel_kisa_metni], [GTIN_kodu], [Sektor], [Sektor_Tanim], [Reyon] FROM [ArtikelAnaVeri$] IN '' [EXCEL 12.0;DATABASE=c:\ANAVERI\ArtikelAnaveri_25Nov2021_0021.xlsx]"
 cn.Execute Sorgu