Visual Basic - Eliminar todos los registros en una base de datos

Por favor quisiera saber si me puedan ayudar.. deseo saber como eliminar registros en una base de datos de access, yo eh usado este codigo...

'With Adodc2.Recordset
.MoveFirst
cant = .RecordCount
For i = 1 To cant
.MoveFirst
.Delete
Next i
End With

PERO... me funciona con pocos registros en mi BD, pero con muchos registros me sale un error "KEY COLUMN INFORMATION IS INSUFFICIENT OR INCORRECT. TOO MANY ROWS WERE AFFECTED BY UPDATE." ... quisiera saber si pueden usar el comando delete de SQL... pero bueno cualquier forma que me funcione es buena para mi.... gracias por la AYUDA!!!

2 cosas.
1º El fallo que te da es por que la tabla a la que atacas tiene toda la pinta
de tener registros duplicados.
2º Lanza un Delete from tabla para SqlServer, Delete * from tabla para access