Try something along the following lines
Dim appAccess As Application
Dim db As Database
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\Access\MyDatabase.MDB"
Set db = appAccess.CurrentDb
db.TableDefs.Delete "MyTable"
Set db = Nothing
appAccess.Quit
Set appAccess = Nothing
Hope This Helps
Gerald Stanley MCSD