Good point about the index, llkhoutx. Otherwise it seems that the trick is to pull out the field name in a loop, and input the fieldname in the delete statement:
Sub DeleteFields()
'Make a copy of table for testing:
DoCmd.CopyObject , "MyTableCopy", acTable, "MyTable"
Dim db As...