Visual Basic - no puedo eliminar 2 veces seguidas

ke onda, tengo un problema cuando quiero eliminar dos veces seguidas me manda el siguiente mensaje de error:

error "3021"

no hay ningun registro activo

como le puedo hacer para que no me muestre ese error, si pueden ayudar muchas gracias.

cesar

Previamente deberás posicionarte en el registro que quieres borrar (métodos Move, Find, Seek), no sé si estás trabajando con el control ADO o DAO.
Saludos

Simplemente por agregar algo te digo que lo que puedes hacer es moverte a primer registro despues de eliminar

data1.recordset.movefirst

o

adodc1.recordset.movefirst

respectivamente