plotting – errorplot coupled by shaded region of the dataset

I have a dataset with errors. I use “ListErrorPlot” to plot the data with the subquent errorbars. Now I need to shade the the data region. The shaded region will include data with error bars only.
Following is my code:

Needs["ErrorBarPlots`"]

data = {{0, 1, 0.17}, {5, 1.4, 0.27}, {10, 1.95, 0.23}, {15, 2.05, 
    0.18}, {20, 2.55, 0.21}, {25, 3.01, 0.28}, {30, 3.76, 0.11}};

ErrorListPlot[data, PlotStyle -> {Hue[0.6, 1, 1]}, 
 PlotMarkers -> {[FilledCircle], 15}, Frame -> True, 
 FrameStyle -> Directive[Black, Thickness[0.002]], 
 FrameLabel -> {Style["x", Black, FontFamily -> "Arial", 
    FontSize -> 20], 
   Style["y", Black, FontFamily -> "Arial", FontSize -> 20]}, 
 PlotRange -> {{-2, 32}, {0.8, 4.1}}, FrameTicks -> Automatic, 
 ImageSize -> 400, 
 BaseStyle -> {FontFamily -> "Times", FontSize -> 15}]

How can I do it? Please help me to get rid of this.
Thank you.