Dim r As Row = tbl.Search(New Filter("ID = " + intID.ToString)).GetFirst() map.ZoomTo(r.Geometry, 1500)