provi a scrivere
codice:
Dim db As ADO.Database
dim SQL as string
Set db = OpenDatabase("pathDelTuoDatabase.mdb")
SQL="DELETE * FROM tabella WHERE campo=1"
db.Execute SQL
db.close
Se non funziona ancora provi di sostituire ADO con DAO