Visual Basic - Eliminar varios registros adodc

Tengo una mdb conectada por un adodc. La base tiene una tabla en la que uno de sus campos es numero de cliente. La tabla almacena los movimientos de los distintos clientes, o sea, hay varios registros con el mismo numero de cliente.
Hasta ahi todo va bien.
Cuando un cliente regulariza su situacion, tengo que eliminar todos los registros de la tabla cuyo numero de cliente coincide con un criterio de busqueda dado en un text, y ahi me tira el error demaciados registros para actualizar.
Lo que hago es algo asi (esta tipeda desde aca)

.....
adodc1.recordset.movefirst
while not(adodc1.recor.EOF)
if campo=criterio then adodc1.rec.delete
adodc1.rec.movenext
wend
adodc1.rec.update

cada movenext del ciclo actualiza la eliminacion. El de abajo es por si elimino el ultimo registro de la base.

Actualicé en cada vuelta del ciclo. use doevents por las dudas, pero nada.
Muchas gracias

bueno yo lo aría asi:

Dim rutaMdb as string
Dim Acces as String
Dim Criterio as string

Dim conexiona as ADODB.Connection

rutaMdb = "LarutaDeTUBASEDEDATOS"
Access = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" + rutaMdb + ";DriverId=281;FIL=MS Access;UID=admin;PWD="

Set Conexion = New ADODB.Connection
Criterio = "1234"

Conexion.Execute ( "Delete * from Clientes where NumCliente = ' " + Criterio + " ' ")

¡ Listo !