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

Bueno, visto el codigo lo raro es que funcione... Verás, el UpdateBatch actualiza un registro, y tu primero borras el registro y despues pides que lo actualice (!). Puedes probar a poner un ´requery´ del R02t en vez del ´updatebatch´.

En realidad estoy teniendo problemas con mi aplicativo, yo trabajo con el adodb, el ms. activex 2.5, donde cargo todo un conjunto de datos y constantemente tengo que actualizar registros, trabajando para ello con el Ms. access....
Resulta que cuando actualizo los registros algunos de ellos no se guardan.... yo empleo para esto el updatebatch, por favor si podrian indicarme la efectividad de dicho comando.

Adjunto parte de mi codigo que se encuentra dentro del boton de actualizar:
rsTabla!OBS_TELEFONO = Combo17.Text
rsTabla!OBS_CELULAR = Combo18.Text
rsTabla!OBS_TEL_REF = Combo21.Text
rsTabla!TEL_REF = Text8.Text
rsTabla!P1 = Combo3.Text
rsTabla!P2 = Combo4.Text
rsTabla!P3 = Combo5.Text
rsTabla!P4 = Combo6.Text
rsTabla!P5 = Combo7.Text
rsTabla!P6 = Combo8.Text
rsTabla!P7 = Combo9.Text
rsTabla!P8 = Combo10.Text
rsTabla!P9 = Combo11.Text
rsTabla!P10 = Combo12.Text
rsTabla!P11 = Combo13.Text
rsTabla!P11_OTROS = Text9.Text
rsTabla!P12 = Combo20.Text
rsTabla!OBSERVACIONES = Text17.Text
rsTabla!JUICIO_VALOR = Combo16.Text
rsTabla!teleoperador = Combo19.Text
rsTabla!resultados = Combo14.Text
rsTabla!fecha_grabacion = Format(Now(), "dd/mm/yyyy")
rsTabla!hora = Format(Now(), "hh:mm:ss")
rsTabla.UpdateBatch