Sub DeleteTable() On Error Resume Next Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection cat.Tables.Delete "Foods" End Sub