Ado ile Listeleme

[Qene]

Sub AccessteBulTarih() 
    Dim Baglan As New ADODB.Connection 
    Dim Kayit As New ADODB.Recordset 
  
    'Sayfa1.Range("Y1:Aj5000").ClearContents 
    Ilktarih = Application.InputBox("Rapor Almak İstediğiniz Dönemin İlk Gün Tarihi, Herhangi Bir Noktalama İşareti Kullanmadan Yazınız", "İlk Tarih") 
    If Ilktarih > 8 Then Ilktarih = Mid(Ilktarih, 1, 8) 
    Ilktarih = Mid(Ilktarih, 1, 2) & "." & Mid(Ilktarih, 3, 2) & "." & Mid(Ilktarih, 5, 4) 
    Ilktarih = CDate(Ilktarih) 
        
    Set Baglan = New ADODB.Connection 
    Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\" & "TumEgitim.mdb;" 
    Set Kayit = New ADODB.Recordset 

    Kayit.Open "SELECT Ad FROM [Veri]where Egitim='" & Sayfa1.Range("A1").Value & "' and " & CDbl(CDate(Ilktarih)) & "", Baglan, adOpenDynamic, adLockOptimistic 
    Sayfa1.Range("A2").CopyFromRecordset Kayit 'KayıtSet'e alınan veri aktif sayfaya aktarılıyor 
    
    Kayit.Close 
    Baglan.Close 
    
    Set Kayit = Nothing 
    Set Baglan = Nothing 
    End Sub

Bu kod ile Access veritabanından listeleme yapıyorum. Excel veritabanına uygulayamadım..
Dosya İsmi Aynıdır...