cancellare tutte le tabelle di un db con access

Tutorial->Programmazione-tutorial->tutorial Access

Dim db As DAO.Database
Dim i As Integer

Set db = CurrentDb

For i = db.TableDefs.Count - 1 To 0 Step -1
    db.Execute "DELETE FROM " & db.TableDefs(i).Name
Next i