Dim chkBox As New Windows.Forms.CheckBox
            chkBox.Name = "chk_" & myReader("F_ID").ToString
            chkBox.Text = myReader("F_ID").ToString
            chkBox.Top = i * 30
            chkBox.Left = Const_Chk
            chkBox.AutoSize = True
            Panel1.Controls.Add(chkBox)
 
AddHandler CType(btnAbschicken, Windows.Forms.Button).Click, AddressOf _
  btnCostumDel_Click

    Private Sub btnCostumDel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim IDs(0 To 100) As String
        Dim i As Integer = 0
 
        Dim chk As Windows.Forms.CheckBox
        For Each c As Control In Panel1.Controls
            If TypeOf c Is Windows.Forms.CheckBox Then
                chk = c
                If chk.Checked = True Then
                    'MsgBox("CheckBox " & chk.Name.Remove(0, 4) & " wurde" & _
                      "markiert")
                    IDs(i) = chk.Name.Remove(0, 4)
                    i += 1
                End If
            End If
        Next
 
        For Each n As String In IDs
            Try
                Dim myCommand As New OleDbCommand
                myCommand.Connection = myConnection
                myCommand.CommandText = "DELETE FROM tbl_Filme WHERE F_ID = ?"
                myCommand.Parameters.AddWithValue("@FID", n)
                myCommand.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            End Try
        Next
 
        Film_Einlesen()
    End Sub