If txtSearch = "" Then
        Form_Load
    Else
        sSQL = "Select * from Funktionen where Name like '" & txtSearch & "' or" & _
          "Funktion like '" & txtSearch & "'"
        Debug.Print sSQL
        Set rsFunktion = db.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
        Debug.Print rsFunktion.RecordCount
        Set grdFunktion.Recordset = rsFunktion
        grdFunktion.Refresh
    End If