gönderdiğiniz örnekle yazdığınız kodlar arasında hiç bir ilişki yok
1 - gelmesi istenen sorgu Hedef_Gerceklesme_2021 ama Access çalışmanızda bu sorgu yok
2 - kodda data klasöründe demişsiniz çalışmanızda klasör yok
3 - tablonuzun adı kodda farklı
yani çalışmanız eklemenizi istediğimizde baştan savma hazırlamayın lütfen
"yine hata verdi" demişsiniz ama nerede hata verdiğini belirtmemişsiniz, hatanın açıklamasını da yazmamışsınız
bu kodun her şeyi hatalı
o nedenle dosya yolunu ve adını doğru yazdığınızdan
sorgunun adının doğru olduğundan emin olun
son olarak siz accessin yolu olarak "Data Source=" & ThisWorkbook.Path & "DATA\data.accdb;" yazmışsınız oysa burası
"Data Source=" & ThisWorkbook.Path & "\DATA\data.accdb;" olmalıydı
\ koymazsanız dosya yolunu yanlış yazar