Dim DAdapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM" & _
          "tbl_Filme", myConnection)
        Dim DSet As New DataSet
        DAdapter.Fill(DSet, "Filme")
 
        Const Const_Chk As Integer = 2
        Const Const_Name As Integer = 60
        Const Const_AddTime As Integer = 200
 
        Dim i As Integer = 0
        For Each Row As DataRow In DSet.Tables("Filme").Rows
 
            Dim chkBox As New Windows.Forms.CheckBox
            chkBox.Name = "chk_" & Row("F_ID").ToString
            chkBox.Text = Row("F_ID").ToString
            chkBox.Top = i * 30
            chkBox.Left = Const_Chk
            chkBox.AutoSize = True
            Panel1.Controls.Add(chkBox)
 
            Dim Name As New Windows.Forms.Label
            Name.Name = "lbl_Name_" & Row("F_ID").ToString
            Name.Text = Row("F_Name").ToString
            Name.Top = i * 30
            Name.Left = Const_Name
            Name.AutoSize = True
            Panel1.Controls.Add(Name)
 
            Dim AddTime As New Windows.Forms.Label
            AddTime.Name = "lbl_AddTime_" & Row("F_ID").ToString
            AddTime.Text = Row("F_AddTime").ToString
            AddTime.Top = i * 30
            AddTime.Left = Const_AddTime
            AddTime.AutoSize = True
            Panel1.Controls.Add(AddTime)
 
            i += 1
        Next
 
        AddHandler CType(btnAbschicken, Windows.Forms.Button).Click, AddressOf _
          btnCostumDel_Click