For x = 0 To 8 
  cboHeim(x).Clear 
next
 
While Not dy1.EOF 
  Mansch=dy1!Mannschaft 
  ItemNr=dy1!nr 
  For x=1 to 8
    cboHeim(x).AddItem Mansch
    cboHeim(x).ItemData(i) = ItemNr
  Next
  dy1.MoveNext 
Wend

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)