Dim con
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;"
con.Execute "DROP TABLE Tabelle1" ' DROP / UPDATE / INSERT / etc.
con.Close
set con = nothing

VBScript!

Delete / Insert / Update tables in an Access-Database

database, table, update

Visual Basic