Sub CATMain()
Dim oSearchService As SearchService
Set oSearchService = CATIA.GetSessionService("Search")
Dim oDBSearch As DatabaseSearch
Set oDBSearch = oSearchService.DatabaseSearch
oDBSearch.BaseType = "VPMReference"
'oDBSearch.BaseType = "Part"
oDBSearch.AddEasyCriteria "PLM_ExternalID", "*"
'oDBSearch.AddEasyCriteria "V_Name", iExternalID
'oDBSearch.AddEasyCriteria "project", "STANDARD"
'oDBSearch.AddEasyCriteria "current", "IN_WORK"
oDBSearch.AddEasyCriteria "current", "PRIVATE"
oDBSearch.AddEasyCriteria "owner", "PLMADM"
'oDBSearch.Mode = SearchMode_Extended
'oDBSearch.AddExtendedCriteria "project", "STANDARD", SearchOperator_NOT_EQ
'oDBSearch.AddExtendedCriteria "PLM_ExternalID", "KDB00EP18-1P-F80-1-ZL06", SearchOperator_LIKE
'oDBSearch.AddExtendedCriteria "current", "IN_WORK", SearchOperator_EQ
oSearchService.Search
End Sub