Mesela ufak yeni bir forma üç tane listbox  bi tane buton koyun listelerden olayı , öğrenciyi,  öğretmeni seçin butona sadece 
Msgbox olayid
Msgbox öğrenciid
Msgbox öğretmenid
Dim say as integer
Say = DCount satırı(if siz)
msgbox say
yazın bakalım ne sayacak olmayanı var mı diyecek
Ben de çok merak ediyorum