I would try GeoGraphics:
data = {{"aname", "bname", "alat", "along", "blat", "blong"}, {"Fred",
"Linda", 41.749942`, -74.0797377`, 42.0752`,
33.585556`}, {"Linda", "Joanne", 42.0752`, 33.585556`,
42.6743`, -73.77783`}, {"Rich", "Sue", 41.6946`, -73.9799`,
41.9959`, -73.8769`}, {"Sue", "Al", 41.9959`, -73.8769`,
42.2519`, -73.786`}};
GeoGraphics[
Apply[{Point[GeoPosition[{#3, #4}]],
Text[#1, GeoPosition[{#3, #4}], {-1, -1}]} &, Rest@data, 1]]