Private Sub DisplayGraph()
    Dim rsst As ADODB.Recordset
    Set rsst = New ADODB.Recordset
    rsst.Fields.Append "DataPod", adDBDate
    rsst.Fields.Append "Kolvo", adDouble
    rsst.Open , , adOpenStatic, adLockBatchOptimistic
    
    Dim lngCount As Long
    Dim arrData() 'holds the data for the chart
    Dim a As Long
    Dim b As Long, i As Long, endkol As Variant
    
   
    ResultForm.DataMain.Recordset.MoveFirst
    ResultForm.DataMain.Recordset.MoveLast
    endkol = ResultForm.DataMain.Recordset.RecordCount
    ResultForm.DataMain.Recordset.MoveFirst
    
    Do Until ResultForm.DataMain.Recordset.EOF
    rsst.AddNew
    rsst.Fields( 0 ).Value = ResultForm.DataMain.Recordset.Fields( 2 ).Value
    rsst.Fields( 1 ).Value = ResultForm.DataMain.Recordset.Fields(DiagramTip).Value
    rsst.Update
    ResultForm.DataMain.Recordset.MoveNext
    Loop
        
    If Not rsst.EOF Then
        'Store the recordcount
        lngCount = rsst.RecordCount
        
        ReDim arrData(lngCount -  1 ,  1 )
        MSChart1.FootnoteText = "Результирующая диаграмма"
        
        'Set the default Chart Type to 2D Bar Type
        MSChart1.chartType = VtChChartType2dLine

       'Set the Legend property of the chart to True
        MSChart1.ShowLegend = False

        For a =  0  To  1 
            rsst.MoveFirst
           
            'b corresponds to rows
            For b =  0  To lngCount -  1 
                arrData(b, a) = rsst(a)
                                       
                rsst.MoveNext
            Next b
        Next a

        MSChart1.ChartData = arrData

        With MSChart1.Plot
            .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Дата"
            .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Выбранный параметр"
        End With
      

End If
    
    rsst.Close
    Set rsst = Nothing
End Sub