SELECT DISTINCT QcboAnlageNummer_alle.HarAnlageNummer, 
QcboAnlageNummer_alle.HarKomponenteNr
FROM QcboAnlageNummer_alle
WHERE (((QcboAnlageNummer_alle.HarAnlageNummer)<>"" And 
(QcboAnlageNummer_alle.HarAnlageNummer) Is Not Null) AND 
((QcboAnlageNummer_alle.HarKomponenteNr)=
[Formulare]![frmAuswahl_Lager_Hardware_bearbeiten_löschen]![txtKomponenteNr]))
ORDER BY QcboAnlageNummer_alle.HarAnlageNummer;

Private Sub cboKomponente_alle_AfterUpdate()
  On Error GoTo Err_cboKomponente_alle_AfterUpdate
  txtKomponenteNr = cboKomponente_alle.Column(0)
  stSQL = "SELECT QcboInterneNummer_alle.HarKey," & _
    "QcboInterneNummer_alle.HarInterneNummer, " _
  & "QcboInterneNummer_alle.HarKomponenteNr," & _
  "QcboInterneNummer_alle.HarInterneNummer" _
  & " FROM QcboInterneNummer_alle" _
  & " WHERE (((QcboInterneNummer_alle.HarKomponenteNr)=" _
  & "[Formulare]![frmAuswahl_Lager_Hardware_bearbeiten_löschen]![txtKomponente" & _
  "r]));"
  cboInterneNummer_alle.RowSource = stSQL
  cboInterneNummer_alle.Value = ""
  cboInterneNummer_alle.Requery
  cboAnlageNummer_alle.Value = ""
  cboAnlageNummer_alle.Requery
 
Err_cboKomponente_alle_AfterUpdate:
  If Err.Number <> 0 Then
   MsgBox Err.Number & " " & Err.Description & _
    "Form!frmAuswahl_Lager_Hardware_bearbeiten_löschen-cboKomponente_alle_Afte" & _
    "Update"
    Resume Exit_cboKomponente_alle_AfterUpdate
  End If
 
Exit_cboKomponente_alle_AfterUpdate:
    Exit Sub
End Sub

Gruß Armin

P.S.: always look on the bright side of Life!