If rec.RecordCount > 0 Then
 With Combo1(0)
       Do Until rec.EOF
        .AddItem rec.Fields("Produktname").Value
        .ItemData(.ListCount - 1) = rec("Produkt-Nr")
            rec.MoveNext
        Loop
 End With
End If