Set rs = db.OpenRecordset("SELECT * FROM textbausteine;")
    If rs.RecordCount > 0 Then
        With cmb_SelectListe
            Do
             If .ItemData(rs("textart")) = rs("textart") Then
               GoTo 2
             Else
              .AddItem rs("Textart")
             End If
2:
            .ItemData(.NewIndex) = rs("Autozähler")
                rs.MoveNext
            Loop Until rs.EOF
        End With
    End If
    rs.Close
    Set rs = Nothing