In[]:=
capitals=EntityValueGeoEntities
United States
COUNTRY
,"USState","CapitalCity";
In[]:=
GeoGraphics[GeoPath[capitals[[Last[FindShortestTour[capitals]]]]]]
Out[]=