The following example assumes the existence of a hypothetical NewIndex index on the Employees table in the Northwind database.
This example deletes the index MyIndex from the Employees table.
Sub DropX1()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Delete NewIndex from the Employees table.
dbs.Execute "DROP INDEX NewIndex ON Employees;"
dbs.Close
End Sub
This example deletes the Employees table from the database.
Sub DropX2()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Delete the Employees table.
dbs.Execute "DROP TABLE Employees;"
dbs.Close
End Sub