Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 If Me.IsPostBack = False Then
            Dim ConnObj As New SqlConnection
            Dim cmdObj As New SqlCommand
            Dim readObj As SqlDataReader
            Dim sqlconn As String
            Dim SimpComp As New SQLCon.SQLConnect

            sqlconn = SimpComp.GetConn
            ConnObj.ConnectionString = sqlconn
            cmdObj.CommandText = "select id_r,ImyaRazdela from Razdels"

            Try
                ConnObj.Open()
                cmdObj.Connection = ConnObj
                readObj = cmdObj.ExecuteReader
                chkRazdel.DataSource = readObj             ' наш CheckBoxList
                chkRazdel.DataValueField = "id_r"
                chkRazdel.DataTextField = "ImyaRazdela"
                chkRazdel.DataBind()
            Catch err As Exception
                If Not ConnObj Is Nothing Then
                    ConnObj.Close()
                End If
            End Try
   End If
End Sub