Dim OgNoRS As New ADODB.Recordset
Dim sOrGu, TxtOgrNo As String
TxtOgrNo = ""
sOrGu = " SELECT TblEvciTakip.tblono, TblOgrenci.tckimlikno, TblOgrenci.adısoyadı, TblOgrenci.okulno, TblEvciTakip.evvcicıkıstarihi,  " & _
        " TblEvciTakip.evcidonustarihi  " & _
        " FROM TblOgrenci INNER JOIN TblEvciTakip ON TblOgrenci.sirano = TblEvciTakip.ogrtc  " & _
        " WHERE (((TblEvciTakip.evvcicıkıstarihi) Between " & CLng(BasTrh) & " And " & CLng(BitTrh) & ")) OR  " & _
        " (((TblEvciTakip.evcidonustarihi) Between " & CLng(BasTrh) & " And " & CLng(BitTrh) & ")) OR  " & _
        " (((TblEvciTakip.evvcicıkıstarihi)<=" & CLng(BasTrh) & ") AND  " & _
        " ((TblEvciTakip.evcidonustarihi)>=" & CLng(BitTrh) & "))  " & _
        " ORDER BY TblEvciTakip.evvcicıkıstarihi"

    OgNoRS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Do While Not OgNoRS.EOF 'her öğretmen için NÖBET tablosuna isim ekle
        TxtOgrNo = TxtOgrNo & "," & OgNoRS.Fields(0)
        Debug.Print OgNoRS.Fields(0)
        OgNoRS.MoveNext
    Loop

GrupOkulNo = Mid(TxtOgrNo, 2)
OgNoRS.Close