'Innerhalb von DAO-DB-Tabellen haben Indexes Namen und sie befinden sich in 
 ' einer
 'Auflistung
 
 Dim inx As Index
 Dim tbl As TableDef
 
 'Datenbank exklusiv öffnen ...
 Set DB = DBEngine.OpenDatabase(DBName, True, False)
 Set tbl = DB.TableDefs("Tabelle")
 
  'Alle Indexe löschen
  For Each inx In tbl.Indexes
      tbl.Indexes(inx.Name).Delete
  Next 
 
  'Bestimmten Index löschen
   tbl.Indexes("Indexname").Delete