Set rs = CurrentDb.OpenRecordset(STRSQL)

hatayı bu satır veriyor. Sıkıştır onar yaptım çözülmedi.

metin1 = Dsum ("sayısı", "kitaplar", "kitapadı LIKE '*' & [Formlar]![KİTAP ARAMA]![MKArama2] & '*'")

kodunu dener misiniz?

Yapılmaması Gereken Ölümcül Hatalar başlıklı konuyu inceleyin. Sayısız defa uyarıda bulunduk; alan, tablo, denetim, değişken vs. adlarında Türkçe karakter kullanılmaz. Bunlar kodların işleyişinde soruna sebebiyet verir, yazılım - kod dili İngilizce'dir. Çalışmanızı bu yönde elden geçirin ardından hata denetimlerini yapın. Ayrıca kodunuzda
Aranan = Me.MKArama.Text kısmını Aranan = Me.MKArama.Value olarak değiştirin. Text kullanımı için o denetime odaklanılmış olması gerekir.