Private Sub cmd_Auslesen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_Auslesen.Click
        Dim myReader As OleDbDataReader
        Dim myCommand As New OleDbCommand("SELECT * FROM Klassenliste", _
          myConnection)
 
        Try
            myReader = myCommand.ExecuteReader
 
            Dim i As Integer
            Do While (myReader.Read())
                Dim Name As New System.Windows.Forms.Label
                Name.Name = "lbl_Name_" & i
                Name.Text = myReader("Name").ToString
                Name.Top = i * Name.Height + 15
                Name.Left = 5
                Name.AutoSize = True
                Me.Controls.Add(Name)
 
                Dim Vorname As New Windows.Forms.Label
                Vorname.Name = "lbl_Vorname_" & i
                Vorname.Text = myReader("Vorname").ToString
                Vorname.Top = i * Vorname.Height + 15
                Vorname.Left = 125
                Vorname.AutoSize = True
                Me.Controls.Add(Vorname)
 
                Dim EMail As New Windows.Forms.Label
                EMail.Name = "lbl_EMail_" & i
                EMail.Text = myReader("EMail").ToString
                EMail.Top = i * EMail.Height + 15
                EMail.Left = 250
                EMail.AutoSize = True
                Me.Controls.Add(EMail)
 
                i += 1
            Loop
 
            myReader.Close()
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Fehler!")
        End Try
    End Sub