Dim Alt as Integer
Dim Neu as Integer
 
Alt=0: Neu=0
SQL = "SELECT MANr,Name FROM Mitarbeiter order by MANr" 
Set rs = Db.OpenRecordset(SQL) 
If rs.RecordCount > 0 Then 
While Not rs.EOF 
If Alt = 0 then
   Alt = rs("Manr")
else
   Do while not Alt +1 < Neu
            List1.AddItem ""
            List2.AddItem ""
   loop
end if
List1.AddItem rs("MANr") ‘Mitarbeiternummer 
List2.AddItem rs("Name") 
Alt = rs("Manr")
rs.MoveNext 
Neu = rs("Manr")
Wend 
End If