ASP.NET

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Conn.Open()
        Dim strSQL As String = "SELECT  tblNieuws.ID, tblNieuws.Titel, tblNieuws.Inhoud, tblGebruikers.Naam, tblNieuws.Datum FROM tblGebruikers INNER JOIN tblNieuws ON tblGebruikers.GebruikerID = tblNieuws.GebruikerID WHERE ID='" & Session("ID") & "'"
        Dim cmdLogin As New System.Data.SqlClient.SqlCommand(strSQL, Conn)
        Dim reader As System.Data.SqlClient.SqlDataReader

        reader = cmdLogin.ExecuteReader()

        While reader.Read()
            berichtid = reader.GetValue(0)
            txtTitel.Text = reader.GetValue(1)
            txtBericht.Text = reader.GetValue(2)
            DropDownList1.SelectedValue = reader.GetValue(3)
            txtdatum.Text = reader.GetValue(4)
        End While

        reader.Close()

        Conn.Close()

    End Sub

Protected Sub btnverzenden_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnverzenden.Click

        Dim strtitel As String = txtTitel.Text
        Dim strbericht As String = txtBericht.Text
        Dim strdatum As String = txtdatum.Text

... 

CheckBoxList cbl = (CheckBoxList)sender;
        if (cbl.Items[0].Selected && cbl.SelectedIndex.Equals(0))
        {
            for (int items = 1; items < cbl.Items.Count; items++)
            {
                if (!cbl.Items[items].Selected)
                    cbl.Items[items].Selected = true;
            }
        }
        else if (!cbl.Items[0].Selected && cbl.SelectedIndex.Equals(1))
        {
            for (int items = 1; items < cbl.Items.Count; items++)
            {
                if (cbl.Items[items].Selected)
                    cbl.Items[items].Selected = false;
            }
        }