Dim sIndex As String
On Error Resume Next
sIndex = Db.TableDefs("Kundendaten").Indexes("Indexname").Name
If Err <> 0 Then
  MsgBox "Index existiert nicht!"
End If
On Error Goto 0

Function IndexExists(ByVal sIndex As String)
  Dim Index As Index
 
  IndexExists = False
  For Each Index = Db.TableDefs("Kundendaten").Indexes
    If Index.Name = sIndex Then 
      IndexExists = True
    End If
  Next
End Function