Visual Basic - ERROR CON OBJETO ADO

Hola, al intentar borrar una tabla de ACCESS me sale el siguiente error:

"Informacion de columna clave insuficiente o incorrecta; demasiadas filas afectadas por la actualizacion"

Este sería el código y me indica el error en la línea EXTRACTO.Recordset.Delete

EXTRACTO.Recordset.MoveFirst
Do While Not (EXTRACTO.Recordset.EOF)
EXTRACTO.Recordset.Delete
EXTRACTO.Recordset.MoveNext
Loop

Gracias

Es mejor que utilices una sentencia SQL (con el método Execute), para eso que necesitas, usando la variable u objeto con el que conectaste a la base de datos (por tu código parece que usaste un DataControl), algo así como:

EXTRACTO.Execute "Delete from Extracto" (o como se llame tu tabla).