Why does this code erase all the locations when it should only remove those not in the scan line of code?

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