Sub BugFilter() ' Filtering defect records Dim BugFact As BugFactory Dim BugFilter As TDFilter Dim bugList As List Dim theBug As Bug Dim i%, msg$ ' Get the bug factory filter. 'tdc is the global TDConnection object. Set BugFact = tdc.BugFactory Set BugFilter = BugFact.Filter ' Set the filter values. BugFilter.Filter("BG_STATUS") = "Closed" BugFilter.order("BG_PRIORITY") = 1 MsgBox BugFilter.Text 'Create a list of defects from the filter ' and show a few of them. Set bugList = BugFilter.NewList msg = "Number of defects = " & bugList.Count & Chr(13) For Each theBug In bugList msg = msg & theBug.ID & ", " & theBug.Summary & ", " _ & theBug.Status & ", " & theBug.Priority & Chr(13) i = i + 1 If i > 10 Then Exit For Next MsgBox msg End Sub