In[]:=
data=Flatten[Table[{GeoPosition[{lat,long}],WindVectorData[GeoPosition[{lat,long}]]},{long,-125,-67,2},{lat,25,50,1}],1];
In[]:=
GeoVectorPlotdata,RegionFunction->
United States
COUNTRY
,GeoRange->
United States
COUNTRY
,VectorPoints->30,RegionBoundaryStyle->None,RegionFillingStyle->None
Out[]=