'SQL_Befehl = "SELECT * FROM textbausteine WHERE Textart = '" & ERKA & "'"
    Set rs = db.OpenRecordset(SQL_Befehl)
    If rs.RecordCount > -1 Then
      With cmb_kategorie
        Do
            .AddItem rs("Text")
            .ItemData(.NewIndex) = rs("Autozähler")
            rs.MoveNext
         Loop Until rs.EOF
     End With
    Else
  End If