Visual Basic - Eliminar todos los registros en una BD en access

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!!!

Buenas yo he conseguido hacerlo con el siguiente trozo de código:

Dim TB As Database
Dim Tabla As TableDef

Set TB=OpenDataBase(ruta,False)

For Each Tabla In TB.TableDefs
If Ucase(Left(Tabla.Name,4)) <> "MSYS" Then
TB.Execute ("Delete * From " & Tabla.Name)
end if
next

Tienes que declarar las variables, inicializarlas e ir recorriendo todas las tablas de la BD execto las del sistema, de ahí el If; todas las tablas del sistema empiezan por MSYS.

Esto te borrara todos los registros de todas las tablas de tu BD.

Espero te sirva de ayuda.
Saludos