Dim strLikeStatement as string
Dim strSqlStatement as string
 
'1. Schritt: meinWarengruppenRecordset über Tabelle Warengruppen erstellen
'...
'2. Schritt: benötigtes Ordnungsmerkmal in meinWarengruppenRecordset selektieren
'...
'3. Schritt: mit gefundenem Ordnungsmerkmal meinUnterwarengruppenRecordset 
' bilden
 
strLikeStatement = "LIKE '" & meinWarengruppenRecordset.Fields( _
  "Warengruppen.Kennziffer") & "%'"
 
strSqlStatement = "SELECT Kennziffer, Name " & _
                  "FROM Unterwarengruppen " & _
                  "WHERE Kennziffer " & _ 
                  strLikeStatement
 
'...
'4. Schritt: Datensätze aus meinUnterwarengruppenRecordset lesen und in zweite 
' Combobox packen

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)