Sorgu = "select * from [Sayfa1$]"

Rs.Open Sorgu, Con, 1, 1

For Each fld In Rs.Fields

   Debug.Print "[" & fld.Name & "]"

Next fld

yukardaki kodla alanların gerçek adlarını ekrana yazdırabilirsiniz. böylece kontrol eederek yazım hatalarının önüne geçebilirsiniz

---

rica ederim
iyi çalışmalar