'удаление таблицы в ADO
Sub DeleteteTable_ADO()
Dim db As ADOX.Catalog
Set db = New ADOX.Catalog
db.ActiveConnection = CurrentProject.Connection
db.Tables.Delete "NewADOTable"
End Sub