Worksheet Filter

There is no objectItem of the following worksheet with filter.

Dim oFilter As Filter

oEuipWorksheet.Filter.Clear

Set oEuipWorksheet = oProject.EquipmentFolder.OpenWorksheetDirectEx(aucObjDevice, aucAttrMaterial, _
aucCondNotEqual, "", aucWorksheetOpenDeep, aucAttrMaterial)


With oEuipWorksheet.Filter
Call .Add(aucAttrDesignation, aucCondNotEqual, ""
Call oEuipWorksheet.Refresh
End With


But there are objectItems of the following worksheet with filter.

Dim oFilter As Filter

Set oFilter = New Filter

oFilter.Kind = aucObjDevice

Call oFilter.Add(aucAttrMaterial, aucCondNotEqual, ""
Call oFilter.Add(aucAttrDesignation, aucCondNotEqual, ""

Set oEuipWorksheet = oProject.EquipmentFolder.OpenWorksheetWithFilter(oFilter, aucWorksheetOpenDeep, aucAttrMaterial)


What is the problem with the first code?