Thank you, went a slightly different way but the Sql and the Autonumber hint was essential for my brain to kick in
Sub RemoveTBDuplicates(strTablename As String)
Dim db As Database
Dim rst, rst2 As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(strTablename)
Set rst2 =...