For example:

SELECT * FROM Telescopes
WHERE (((Telescopes.ID) In (SELECT [ID] FROM [Telescopes] As Tmp GROUP BY [ID] HAVING Count(*)>1 )))
ORDER BY Telescopes.ID;

Then write a VBA script to iterate through the results and delete all but one of each set.