Sub DropEmployeesTable()
Dim dbase As Database ' Modify this line to include the path to Northwind on your computer. Set dbase = OpenDatabase("Northwind.mdb") ' Delete the Employees table. dbase.Execute "DROP TABLE Employees;" dbase.Close
End Sub