You FOR condition is always true. Change OR to AND or better to INLIST().

Scan For NOT INLIST(Alltrim(crimetype), "B&E Cabin", "B&E Home", "B&E Business", "B&E Garage")

>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
>