vb用mschart画雷达图，填了16列数，出来的图是17个，多一个空列，怎么把空列去掉呢？谢谢！

vb用mschart画雷达图，填了16列数，出来的图是17个，多一个空列。怎么去掉空列，下面是我写的原代码   
     strSQL = "select * from 全省风向频率月或年 where 站号=" + Zcode.Text + " and 月或年='年'"
        myreader = obj.ExecReaderSql(strSQL)
        If myreader.Read = False Then
            obj.Close()
            MsgBox("无此站数据，请核查站号！")
            Exit Sub
        End If
        For i = 2 To 17
            c(i - 2) = myreader(i)
        Next
        d(0) = "N"
        d(1) = "NNE"
        d(2) = "NE"
        d(3) = "ENE"
        d(4) = "E"
        d(5) = "ESE"
        d(6) = "SE"
        d(7) = "SSE"
        d(8) = "S"
        d(9) = "SSW"
        d(10) = "SW"
        d(11) = "WSW"
        d(12) = "W"
        d(13) = "WNW"
        d(14) = "NW"
        d(15) = "NNW"
        MSchart2.Series.Clear()
        MSchart2.Series.Add(0)
        MSchart2.Series(0).Points.DataBindXY(d, c) '插入xy值
        MSchart2.ChartAreas(0).AxisX.MajorTickMark.Enabled = True 'x轴主刻度线
        MSchart2.ChartAreas(0).AxisX.Interval =1 '设置间隔
        MSchart2.Width = 250
        MSchart2.Height = 250
        MSchart2.Series(0).ChartType = SeriesChartType.Radar  '设置图类型
        MSchart2.Series(0).IsValueShownAsLabel = False  '是否显示点标签
        MSchart2.Series(0).IsVisibleInLegend = False '是否显示图例
        'MSchart2.ChartAreas(0).AxisX.MajorGrid.Enabled = False
        MSchart2.ChartAreas(0).AxisY.MajorGrid.Enabled = True
        MSchart2.ChartAreas(0).AxisY.LabelAutoFitMaxFontSize = 8
        MSchart2.ChartAreas(0).AxisX.LabelAutoFitMinFontSize = 6
        MSchart2.ChartAreas(0).AxisX.IntervalOffset = False
        MSchart2.ChartAreas(0).AxisX.Maximum = 15.9
        MSchart2.ChartAreas(0).AxisX.LineColor = Color.Black
        'MSChart1.Legends(0).Docking = Docking.Bottom  '图例在图上显示
        'MSChart1.Legends(0).Alignment = StringAlignment.Center
        'MSChart1.Series(0).YAxisType = AxisType.Primary
        MSchart2.Titles.Add("年")
        obj.Close()