capitals=EntityValue[GeoEntities[(Entity["United States", Entity["Country","UnitedStates"], "Entity[\"Country\", \"UnitedStates\"]", "country"]),"USState"],"CapitalCity"];

GeoGraphics[GeoPath[capitals[[Last[FindShortestTour[capitals]]]]]]