Set rs = db.OpenRecordset("SELECT * FROM textbausteine GROUP BY DeinFeld;")
    If rs.RecordCount > 0 Then
       rs.movefirst
Do While Not rs.eof
        With cmb_SelectListe
              .AddItem rs.Fields("DeinFeld").Value)            
               rs.MoveNext
        End With
Loop
    End If
    rs.Close
    Set rs = Nothing