Visual Basic - Consulta bases de datos

Hola, quiero saber como puedo reiniciar un archivo de base de datos de access de un programa de visual basic, o sea borrar toda la información de la base de datos sin tener que borrarlos registro por registro y tabla por tabla.

Gracias.

Hola,

Una manera rápida (e irreversible) de hacer lo que requieres es iterar a través de la colección TableDefs, y crear "al vuelo" el código SQL para eliminar todos los registros en una sola acción:

db.Execute "DELETE ¨FROM " & nombre_de_la_tabla

El código que sigue itera a través de las tablas de un objeto de tipo Database llamado db y agrega el nombre de la tabla a un listbox. Modifícalo a tus requerimientos (no olvides respaldar tu información).

Saludos.

Dim db As Database
Set db = COLOCA AQUI TU MDB
For i = 0 To db.TableDefs.Count - 1
If (db.TableDefs(i).Attributes And dbSystemObject) = 0 Then
List1.AddItem db.TableDefs(i).Name
End If
Next