Private Sub cmdTest_Click()
 
'Datenbank öffnen
Dim Db As Database
Dim dbFile As String
 
dbFile = App.Path + "\Daten.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
Dim IndexName As New Index
With IndexName
  .Name = "Name"
  .Field = "Name"
  .PrimaryKey = False
  .Unique = False
End With
 
'Hinzufügen zur Indexes-Auflistung
Db.TableDefs("Adressen").Indexes.Append Index
Set Index = Nothing
 
End Sub