Set nTableDef = HDb.TableDefs("NameTable")
'Index erstellen
Dim nIndex As DAO.Index
Set nIndex = nTableDef.CreateIndex("NameIndex")
With nIndex
.Primary = True
.Required = True
.IgnoreNulls = False
End With
 
'1. Spalte
Set nField = nIndex.CreateField("Vorname")
nIndex.Fields.Append nField
 
'2. Spalte
Set nField = nIndex.CreateField("Nachname")
nIndex.Fields.Append nField
Set nField = Nothing
 
'Index Hinzufügen
nTableDef.Indexes.Append nIndex
Set HDb = Nothing
Set nTableDef = Nothing

Tb.Index = "NameIndex"
Tb.Seek Chr$(61), strInput
If Not Tb.NoMatch Then
'...
Else
'...
End If