Scan For Alltrim(crimetype) <> "B&E Cabin" OR Alltrim(crimetype) <> "B&E Home" OR Alltrim(crimetype) <> "B&E Business" OR Alltrim(crimetype) <> "B&E Garage" ShapeID = localcrime1.shapename Thisform.RemoveObject(ShapeID) Endscan