Problem mit SQL String In Vba Duplikaten suche mit INNER JOIN und Filterkriteri

[Frank77]

Hallo
Ich hab da ein Problem mit einem SQL String ursprünglich verwende ich in einer VBA Prozedur diesen um einen Listenfeld zu füllen  um damit Werte für das filtern des Recorders zu übergeben  

Code [Auswählen] Erweitern

LstKategorieFilter.RowSource = "SELECT [KatID], [KatName] FROM [TblKategorien] WHERE [KatWGruppenIDRef] = " & Format(lstWarengruppeFilter.Column(0)) & " ORDER BY [KatID];"

Da es aber dabei  zu Fehlern kommt wenn das Kriterium das im Listenfeld beinhaltet ist  nicht in der TblArtikel vergeben ist  müsste ich das Listenfeld nur mit vergebenen werten füllen
In einer Abfrage würde das dann so aussehen allerdings müsste ich das    

Code [Auswählen] Erweitern

= " & Format(lstWarengruppeFilter.Column(0)) & " ORDER BY [KatID];"   mit einbauen
Damit der Filter der Listenfelder  funktioniert Bzw. das Filter Kriterium aus dem übergeordneten Listenfeld zu übergeben  

Code [Auswählen] Erweitern

LstKategorieFilter.RowSource = "SELECT DISTINCT [KatID], [KatName], [ArtKatIDRef] FROM TblKategorien INNER JOIN TblArtikel ON TblKategorien.KatID = TblArtikel.ArtKatIDRef;

In eine Abfrage kann ich es nicht speichern da sich im Formular  ein weiterer Filter auf 2 weitere Listenfelder weiter ergibt

Ich hoffe das mir da jemand eine Idee hat Gruß Frank

[Frank77]

hab den Leichtsinnsfehler gefunden ich musste es ja nur anhängen