Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Removing a Table Using Code
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