If C_3.Checked = True Then
            Chart1.Series.Add(New Series(""))
            Chart1.Series(4).Color = Color.Red
            Chart1.Series(4).BorderWidth = 2
            Chart1.Series(4).ChartType = SeriesChartType.Line
            Dim x As Integer
            For x = 1 To 12
                Dim KFZ_Versicherung_Summe As Double
                KFZ_Versicherung_Summe = (From r In HaushaltsbuchDataSet.Daten _
                  Where r.Monat = x And r.Jahr = Kalender.AktDatum.Year And _
                  r.Eintrag = "KFZ_Versicherung" Select r.Betrag).Sum()
                Chart1.Series(4).Points.AddXY("", KFZ_Versicherung_Summe)
            Next
        End If

    If MeinDataset.Daten.Betrag >0 then..........