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

Hocam bu kodu revize etmek istedim ama başaramadım. Yani B ve N girilebiliyor.