Private Sub cmdTest_Click()
Dim Db As Database
Dim Index As New Index
 
' Datenbank öffnen
Set Db = DBEngine.OpenDatabase("Daten.mdb")
 
' Index definieren
With Index
  .Name = "Name"
  .Field = "Name"
  .Primary = False
  .Unique = False
End With
 
' Index an die Tabelle "Adressen" anfügen
Db.TableDefs("Adressen").Indexes.Append Index
 
' Datenbank schließen
Db.Close
Set Db = Nothing
End Sub