forse ti manca l'istruzione:


collStaff1.Add (dbRec1("ID_Med")), staff
ListStaff1.addItem staff
dbRec1.MoveNext

prova anche a togliere exit sub che hai aggiunto