kodu aşağıdaki gibi düzenleyip dener misiniz?
Not: Çalışmanıza referanslardan Microsoft Activex Data Object eklememişsiniz o olmadan ADODB.Recordset çalışmaz

Dim strSQL1 As String

Dim rsSQL1 As ADODB.Recordset

Dim Varmi As Integer



strSQL1 = "SELECT [Okulu] FROM srgHepsiaktif group by [Okulu];"

Set rsSQL1 = New ADODB.Recordset

    

    rsSQL1.Open strSQL1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    DoCmd.SetWarnings False

    OkulAdi = 1

    Do While Not rsSQL1.EOF

    

        Controls("txtOkul" & OkulAdi) = rsSQL1.Fields("Okulu")

        OkulAdi = OkulAdi + 1

    rsSQL1.MoveNext

    Loop

    

    DoCmd.SetWarnings True

    rsSQL1.Close

Set rsSQL1 = Nothing

Me.txtMevcut91.Requery