Visual Basic - Borrar registros en Access

Necesito borrar todos los registros que existen en una base de datos en Access 97, pero no quiero borrar las definiciones de tablas ni las consultas creadas, todo esto desde visual basic, porque se necesita crear una base de datos nueva con las mismas definiciones cada cambio de año.

les agradeceria mucho si alguien me podria orientar como hacer esto desde el codigo de vb6, dado que se necesita agregar como opcion en un sistema

Abrí cada tabla en un recordset
Dim rs as recordset
Dim db as database
Set db = opendatabase (“c:\….\base de datos.mdb”) ‘ coloca la base de datos y su direccion
Rs=db.openrecordset(“select * from tabla”) ‘en lugar de tabla va el nombre de la tabla
Ahora recorres el recordset y borra cada registro
Rs.movefirst
While not rs.eof
Rs.delete
Rs.movenext
wend
espero que te sirva. Suerte

Hola me ayudo muchisimo gracias!!!

Una forma un poco mas elegante:

Dim db as database

Set db = opendatabase (“base de datos.mdb”)

db.Execute "DELETE FROM TABLA"

db.Close

Ahora bien, como puedo borrar todos los registros de una tabla de access desde VB pero unicamente dejando sin borrar un solo registro para que cuando corra mi aplicacion y use esta tabla no me genere un error por falta de datos? espero alguien sepa como hacerle. gracias..