Listbox Satır kaynağına ilgili tabloları bağlarsınız listbotan seçtiğiniz elemanın id değerini bir integere atarsınız 
Bu integer elemanı DCount içinde kullanırsınız
Bu işlem yazdığınız kofların yanında çocuk oyuncağı

---

Veya boş bir form açın
Bir buton koyun
Click olayına satırına şöyle yazın

---

Msgbox DCount("gorus_id", "tbl_gorusler", "[olay_id] = " & 1 & " And [ogrenci_id] = " & 1 " And [ogretmen_id] = " & 8 )