Private Sub cmbHersteller_Click()
  Dim SQL As String
  Dim Rs As Recordset
 
  With cmbHersteller
    If .ListIndex >= 0 Then
      SQL = "SELECT Typen FROM Tabelle <font color=red>WHERE Hersteller = '" & _
        .Text & "'</font> ORDER By Typen"
      Set Rs = Db.OpenRecordset(SQL)
      If Rs.RecordCount > 0 Then
        Do Until Rs.EOF
          cmbTypen.AddItem Rs("Typ")
          Rs.MoveNext
        Loop
      End If
      Rs.Close
      Set Rs = Nothing
    End If
  End With
End Sub