Dim oIndex As New Index
 
With oIndex
  .Name = "Produkt"
  .Primary = True  ' True, falls Primärindex, sonst False
  .Unique = True  ' True, wenn eindeutiger Feldinhalt, sonst False
  .Fields = "Produkt"
End With
 
Db.TableDefs("Bier").Indexes.Append oIndex

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de