Private Sub Steuerliste3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Steuerliste3.Click
 
        Dim Dauer As Byte  
        Dim Balken_hoehe As Byte = 28 
        Dim newLabel As New Label()
 
        Dim con As New OleDb.OleDbConnection 
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
 
        con.ConnectionString = _
           "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Datenbank.mdb"
        cmd.Connection = con
 
 
        Belegunsplan_Panel_Belegung.Controls.Add(newLabel) ' Erstellen des 
        ' ERSTEN Labels für die Überschrift
        newLabel.BackColor = Color.Lime
        newLabel.Text = "Jahr 2010"
        newLabel.Name = "Diagramm_Komplett" 
        newLabel.Location = New Drawing.Point(3, 0) 
        newLabel.Size = New Drawing.Size(1800, 20)
 
        con.Open()
        cmd.CommandText = "select * from TBL Where Nummer =1" ' hier werden 4 
        ' Datensätze gefunden!
        reader = cmd.ExecuteReader()
 
        Do While reader.Read()' Erstellen der anderen Labels mit fortlaufendem 
        ' Namen
            Dauer = DateDiff("d", reader("FLD_Anfang"), reader("FLD_Ende")) ' 2 
            ' Jahresdaten im Datensatz vorhanden!     
            Diagramm_Panel.Controls.Add(newLabel) 
            newLabel.BackColor = Color.Lime
            newLabel.Text = "Jahr 2010" & reader("ID_Nr")
            newLabel.Name = "Diagramm_Label" & reader("ID_Nr")
            newLabel.Location = New Drawing.Point(3, 54)
            newLabel.Size = New Drawing.Size(Dauer * 30, Balken_hoehe)        
        Loop
 
        reader.Close()
        con.Close()
 
end sub