Dovrebbe funzionare così...........:
--------------------------
Dim db As Database
Dim Tbl As TableDef

Set db = OpenDatabase(file$)

For Each Tbl In db.TableDefs
db.Execute "DELETE * FROM " & Tbl.Name
Next

Set db = Nothing
------------------------------