Private Sub cmdTest_Click()
Dim Db As DataBinding
Dim Index As New Index
 
' Datenbank öffnen
Set Db = DBEngine.OpenDatabase("Daten.mdb")
 
' Index definieren
With Index
  .Name = "neuerIndex"
  .Field = "Datensatznummer"
  .Primary = True
  .Unique = True
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