Dim rsTab1 As DAO.Recordset
Dim rsTab2 As DAO.Recordset
Dim rsFilteredTab As DAO.Recordset
set rsTab1=db.OpenRecordset("SELECT * FROM Tab1;",dbOpenSnapshot)
set rsTab2=db.OpenRecordset("SELECT * FROM Tab2;",dbOpenSnapshot)
rsTab2.Filter = "Key IN (SELECT Tab2Key FROM Tab1Tab2Relation WHERE T1Key=4711)"
set rsFilteredTab=rsTab2.OpenRecordset

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...