Detectar el elemento mas cercano

UPDATE
Manzanas
SET
IDLocalidad = (SELECT TOP 1 IDLocalidad FROM Localidades
WHERE (Localidades.Geom IS NOT NULL)
ORDER BY Manzanas.Geom.STDistance(Localidades.Geom) ASC
)
WHERE Manzanas.Geom IS NOT NULL

Donde :

Manzanas son poligonos
Localidades son puntos