comment faire pour supprimer tous les enregistrements d'une table

salut, je suis novice en vb6...
vb6
bdd : access

comment faire pour supprimer tous les enregistrements d'une table en vb6

merci ...

Code:

---

1 2 3 4

Do While Not (Data15.Recordset.EOF) Data15.Recordset.delete Data15.Recordset.MoveNext Loop

---