Set rs = db.OpenRecordset(SQL_Befehl)
If Rs.RecordCount > 0 Then
  Rs.MoveLast
  Rs.MoveFirst
  With cmb_kategorie
    Do
        .AddItem rs("Text")
        .ItemData(.NewIndex) = rs("Autozähler")
        rs.MoveNext
     Loop Until rs.EOF
 End With
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de