aşağıdaki kodu dener misiniz?
not: açılır kutuların adı AK1,AK2 ve AK3 olarak değiştirilmiştir

Private Sub txttarih_Exit(Cancel As Integer)

Dim rs As ADODB.Recordset



xSQLNbt = "select top 3 [OgretmenId] from TblNobet where ([donem])=" & CLng(DateSerial(Year(txttarih), Month(txttarih), 1)) & " and [G" & Day(txttarih) & "]='n'"

Set rs = New ADODB.Recordset

rs.Open xSQLNbt, CurrentProject.Connection, 3, 1

    For x = 1 To 3

        Controls("AK" & x).Value = ""

    Next x

If rs.RecordCount = 0 Then

    MsgBox "kayıt yok"

Exit Sub

End If



say = 3

If rs.RecordCount < 3 Then say = rs.RecordCount

rs.MoveFirst

For x = 1 To say

    Controls("AK" & x) = rs(0)

    rs.MoveNext

Next x



End Sub