Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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