Function FilterDefects () As List
    Dim BugF As BugFactory
    Dim BgFilter As TDFilter
    Dim thisBug As Bug, bugL As List
' Setting filters on multiple fields
    
    'tdc is the global TDConnection object.
    Set BugF = tdc.BugFactory
    Set BgFilter = BugF.Filter
    BgFilter.Filter("BG_RESPONSIBLE") = "alex_alm Or cecil_alm"
    BgFilter.Filter("BG_DETECTION_DATE") = "[PreviousWeek]"
    BgFilter.Filter("BG_STATUS") = "New  Or  Open  Or  Rejected  Or  Reopen "

    Set bugL = BgFilter.NewList
    For Each thisBug In bugL
        Debug.Print thisBug.ID, thisBug.Summary
    Next thisBug
'   BfFilter.Text:
'        [Filter]{
'        TableName:BUG,
'        ColumnName:\00000011\BG_DETECTION_DATE,
'        LogicalFilter:[PREVIOUSWEEK],
'        VisualFilter:[PreviousWeek],
'        NO_CASE:
'        }
'        {
'        TableName:BUG,
'        ColumnName:BG_RESPONSIBLE,
'        LogicalFilter:\00000013\alex_alm Or cecil_alm,
'        VisualFilter:\00000015\alex_alm  Or  cecil_alm,
'        NO_CASE:
'        }
'        {
'        TableName:BUG,
'        ColumnName:BG_STATUS,
'        LogicalFilter:\00000021\New Or Open Or Rejected Or Reopen,
'        VisualFilter:\00000028\New  Or  Open  Or  Rejected  Or  Reopen ,
'        NO_CASE:
'        }

    Set FilterDefects = bugL
End Function