strCat = "SELECT FulfillmentGroup.[Fulfillment Group] FROM FulfillmentGroup " _
& "WHERE ((FulfillmentGroup.[Fulfillment Group]) Not like 'Rejected' and (FulfillmentGroup.[Fulfillment Group] not like 'Delivered'))"
Set rsCDGRCat = dbCurr.OpenRecordset(strCat)
strCDGR = "SELECT CnfToCdgr.[CDGR ID#], CnfToThreat.[Threat Adversary], FulfillmentGroup.[Fulfillment Group]" _
& "FROM (CdgrToCidr INNER JOIN FulfillmentGroup ON CdgrToCidr.[Fulfillment Status] = FulfillmentGroup.[Fulfillment Group])" _
& "ON CnfToThreat.[CNF ID#] = Cnf.[CNF ID#]) ON CdgrToCidr.[CDGR ID#] = CnfToCdgr.[CDGR ID#] " _
& "WHERE ((" & whereStr & ") AND ((FulfillmentGroup.[Fulfillment Group]) = '" & rsCDGRCat![Fulfillment Group] & "'));"