Select Case Typ
        Case 0 'Name
            SQL = "SELECT * FROM Index WHERE Name Like '*" & Begriff & "*'" & _
              "ORDER BY Name"
        Case 1 'Grundstücksdaten
            SQL = "SELECT * FROM Index WHERE Grundstücksdaten Like '*" & _
              Begriff & "*' ORDER BY Name"
        Case 2 'Index
            SQL = "SELECT * FROM Index WHERE Index = " & Begriff & " ORDER BY" & _
              "Index"
        Case Else
            MsgBox "Ungültige Suchoption", vbCritical, "Suche"
    End Select
    Set SuchErgebnis = Db.OpenRecordset(SQL, dbOpenSnapshot)
    ergebnisAnzeigen