allora penso che un'estrazione "per differenza" possa essere adatta

dopo la prima select, che estrae gli inner-join funzionanti, inizi un loop dove per ogni record presente inserisci un "WHERE Valore_ID <> "& Valore_ID " dopodichè apri il nuovo recorset, e con un bel rs.delete e tutti i record senza relazione per magia se ne vanno via