Visual Basic - Ayuda bd access

Hola a todos, tengo una aplicacion en vb 6 enlazada a access con dao, mi problema es que necesito implementar una rutina en boton que me reinicialize la bds, es decir que borre todo excepto la primer columna y los encabezados claro, solo para que quede lista para seguir capturando.

gracias...