Visual Basic - Borrar BD desde VB

Hola a todos,
no tengo mucha experiencia en esto asi que haber si me podeis ayudar.
Quiero programar un boton en visual, de tal manera que me borre todo el contenido de una base de datos, que la tengo enlazada mediante un control data con VB, he probado lo siguente:

Private Sub borrar_Click()
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Wend

pero no borra nada.
¿Sabe alguien que debo de corregir?
Muchas gracias de antemano.

el como se borra es asi:

privat sub borrar_click( )
for i=0 to 4
dt.recordset.delete
next
end sub

ahora bien, tienes que ver si la base tiene registros, porque si no te va a mandar un error

si la base tiene muchos datos, podría serte un poco lento, puedes usar este otro método
1º crea una base de datos idéntica a la que quieres borrar y que ESTÉ VACIA DE DATOS, con un nombre distinto a la base a borrar
2º Borra la base de datos
3º Copia la base vacía con el nombre de la borrada

ejemplo
bases de datos
con datos LA_BASE.DBF
sin datos VACIA.DBF

KILL DIRECTORIO+"LA_BASE.DBF"
FILECOPY DIRECTORIO+"VACIA.DBF","DIRECTORIO+LA_BASE.DBF"

Saludos