sqls = "SELECT id, firmenname, isnull(firmenname2,'') as firmenname2," & _
      "kunden_nr FROM adressen ORDER BY firmenname"
    Set rs = DBObj.cnn.Execute(sqls)
    Do Until rs.EOF
        With CboKunden
            If rs!firmenname <> "" Then
                CboKunden.AddItem rs!firmenname + " - " + rs!kunden_nr
            Else
                CboKunden.AddItem rs!firmenname + "  " + rs!firmenname2 + " - " _
                  + rs!kunden_nr
            End If
        End With
        rs.MoveNext
    Loop