Visual Basic - Problemas con el UPDATEBATCH

Hola a todos:

Tengo un problema con una aplicación que estoy haciendo. El código es el siguiente:

MiRecordsetR01t.Filter = "SEDE = ´" & cad & "´"
MiRecordsetR02t.Filter = "SEDE = ´" & cad & "´"
MiRecordsetR01t.MoveFirst
MiRecordsetR02t.MoveFirst
If MiRecordsetR01t.RecordCount = MiRecordsetR02t.RecordCount Then
´ encontrado = True
Do While Not MiRecordsetR02t.EOF And Not MiRecordsetR02t.BOF
MiRecordsetRfin.AddNew
MiRecordsetRfin!TELEFONO = MiRecordsetR02t!TELEFONO
MiRecordsetRfin!SEDE = MiRecordsetR02t!SEDE
MiRecordsetRfin!CIF = MiRecordsetR02t!CIF
MiRecordsetRfin!NOMBRE = MiRecordsetR02t!NOMBRE
MiRecordsetRfin!CONTRATO = MiRecordsetR02t!CONTRATO
MiRecordsetRfin.UpdateBatch
MiRecordsetR02t.Delete
MiRecordsetR02t.UpdateBatch
MiRecordsetR02t.MoveFirst
Loop

Pues bien, cuando se repiten dos registros en el MiRecordsetR02t con todos sus campos iguales en el bucle "do" cuando se llega a uno de los registro repetidos se para el proceso al intentar ejecutar la intrucción MiRecordsetR02t.UpdateBatch

¿Podría alguien decirme como puedo resolver esto sin tener que eliminar los registros repetidos de antemano?

MUCHAS GRACIAS A TODOS