Option Explicit
' Datenbank
Dim L1 As Recordset
Dim L2 As Recordset
Dim BZL As Recordset
Dim DatenBank As Database
Dim Index As Index
Dim tbf As TableDef
 
' Dein Code
 
Set Index = New Index
Index.Name = "ArtNrIndex"
Index.Primary = False
Index.Unique = False
Index.Fields = "ArtNr"
 
tbf.Indexes.Append Index