Ho provato in questo modo ma non funge, non cancella nulla
codice:
Private Sub Command1_Click()
 Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
    Set myrecord = mydata.OpenRecordset("clienti")
  SQL = "DELETE * FROM clienti"
 mydata.Close
End Sub