Removing Duplicate Entries

Hello!

I have made a small program which checks for duplicate entries from a single database and removes the duplicate entries if found. Now i think i am doing it the hard way and want to know that how can the program be made more fast and efficient.

I am hereby attaching the program i created.

Thanks!

u delete a duplicate if there's the same date of birth?
that's not a so good thing i think

i think that's better to use a query instead of the second For:
Set RSa = DBa.OpenRecordset("SELECT CustData.* FROM CustData WHERE (CustData.ID <> '" & RS.fields("ID") & "') AND ((CustData.Name = '" & RS.fields("Name") & "') OR (CustData.Phone= '" & RS.fields("Phone") & "') OR (CustData.DateOfBirth= '" & RS.fields("DateOfBirth") & "'))", dbOpenTable)

or if u want to delete the directly use Delete insetad of Select

hope this can help u