Tablolarımı sildim. Yeniden oluşturdum. Hiç türkçe karakter kullanmadım.
Dim strSQL1 As String
Dim rsSQL1 As ADODB.Recordset
strSQL1 = "SELECT * FROM Kutukdefteri WHERE (((Durumu)='Aktif') AND ((Yatılılıkdurumu)='Parasız'));"
Set rsSQL1 = New ADODB.Recordset
rsSQL1.Open strSQL1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Sizin yazdığınız komut satırından bir kısım yukarıya yazdım. Bu komut dizesinde strSQL1 derken SQL1 i komut dizesi kendisi mi oluşturuyor. Yoksa örenğimde sorgu1 isimli sorgu vardı. Bu var olan sorgu1 e atıfta bulunuyor. Eğer varolan sorgu1 e atıfta bulunuyorsa onuda silmiştim. tekrar aynı isimle oluşturacağım. Yok komut satırı kendisi oluşturuyorsa
rsSQL1.Fields i bulamadım diyor.