Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Removing a Field from a Table
Sub Delete_Field()
   Dim cat As New ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = CurrentProject.Connection
   cat.Tables("rntsoftTable").Columns.Delete "Type"
   Set cat = Nothing
End Sub