If rs.RecordCount > 0 Then
                With cmb_Ersatzteile
                Do
                    .AddItem rs("ErsatzteilName")
                    .ItemData(.NewIndex) = rs("ErsatzteilNummer")
                    rs.MoveNext
                Loop Until rs.EOF
                End With
            Else
        end if

Liebe Gr??e

Christina

--------------------------------
Wo VB-Anf?ngerin ist *gg*