很菜的问题，用mschart画一条线

代码如下为什么显示的时候什么也没有呢？代码如下：
Private Sub drawLine(key As String)
    Dim tmpI As Integer
    Dim tmpJ As Integer
    With MSChart
      
        .ShowLegend = True  '显示图例
        .Stacking = False   '叠置系列
        .TitleText = "指标计划值与实际值对比图"   '图表标题
        '.FootnoteText = "hehe"  '页脚
        
        .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
        .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 30
        .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 30 \ 5
        .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 5
        .Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True
        .Plot.Axis(VtChAxisIdY).AxisTitle.TextLayout.Orientation = VtOrientationVertical
        '.Plot.Axis(VtChAxisIdY).AxisTitle.TextLayout.Orientation = VtOrientationUp
        
        .Plot.Axis(VtChAxisIdY).AxisTitle.Text = "sdfasd"
        .ColumnCount = 1
        .RowCount = 2
        If rs.State = 1 Then
            rs.Close
        End If
        Dim id
        id = Right(key, Len(key) - 1)
        rs.Open "SELECT * FROM project_criterion where criterionID = " & id, conn
        .Row = 1
        .RowLabel = "计划值"
        .Data = Val(rs("planValue"))
        .Row = 2
        .RowLabel = "实际值"
        .Data = Val(rs("factValue"))
       
        '.DataGrid.ColumnLabel(2, 1) = "LLLLLLLLLLLLLLLLLLLLL"
        '.DataGrid.RowLabel(2, 1) = "cccccc"
        
                
        '.Enabled = False
        'MsgBox .ActiveSeriesCount   '图表系列数（即图例个数）
    End With
End Sub