DateListPlot[WeatherData["C6612", "Temperature", {2009, 12, 1}], 
  Joined -> True] Manipulate[
  If[r == 1, 
   S = DateListPlot[ WeatherData["C6612", "Temperature", {Year, Month, Day}], Joined -> True]]; 
  If[r == 2, S = DateListPlot[ WeatherData["C6612", "Humidity", {Year, Month, Day}], Joined -> True]]; 
  If[r == 3, S = DateListPlot[ WeatherData["C6612", "Pressure", {Year, Month, Day}], Joined -> True]]; 
  If[r == 4, S = DateListPlot[ WeatherData["C6612", "SnowAccumulationRate", {Year, Month, Day}], Joined -> True]]; 
  If[r == 5, S = DateListPlot[ WeatherData["C6612", "Windchill", {Year, Month, Day}], Joined -> True]]; 
  If[r == 6, S = DateListPlot[ WeatherData["C6612", "WindDirection", {Year, Month, Day}], Joined -> True]]; 
  If[r == 7, S = DateListPlot[ WeatherData["C6612", "PrecipitationRate", {Year, Month, Day}], Joined -> True]]; 
  If[r == 8, S = DateListPlot[ WeatherData["C6612", "Visibility", {Year, Month, Day}], Joined -> True]]; 
  S, {{r, 1, "Measure:"}, {1 -> "Temperature", 2 -> "Humidity", 
    3 -> "Pressure", 4 -> "Snow Accumulation Rate", 5 -> "Windchill", 
    6 -> "Wind Direction", 7 -> "Precipitation Rate", 8 -> "Visibility"}}, 
    {Year, {2009, 2008, 2007, 2006, 2005}}, {Month, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}}, 
    {Day, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 
           24, 25, 26, 27, 28, 29, 30, 31}}]