I am having a problem when I tried to
delete one of the duplicated records
in my recordset.

What I did was:

Dim varTest() As Variant

For i = 0 To tdbEntry.SelBookmarks.Count - 1
rstTemp.Bookmark = tdbEntry.SelBookmarks(i)
ReDim Preserve varTest(i)
varTest(i) = rstTemp.Bookmark
Next
rstTemp.Filter = varTest()
rstTemp.Delete
rstTemp.UpdateBatch
rstTemp.Filter = adFilterNone

When program execute the updatebatch method,
I always get an error as:
"Microsoft Cursor Engine
Insufficient or incorrect key column
information, too many rows affected by
update"

But if there were no exact duplicating records
the updatebatch worked fine.