data=Flatten[Table[{GeoPosition[{lat,long}],WindVectorData[GeoPosition[{lat,long}]]},{long,-125,-67,2},{lat,25,50,1}],1];

GeoVectorPlot[data, RegionFunction -> LinguisticAssistant, GeoRange -> LinguisticAssistant, VectorPoints -> 30,RegionBoundaryStyle->None,RegionFillingStyle->None]