Llenar CheckBoxList con query

[dadabit]

Hola, necesito llenar un chekBoxlist con un query, que me muestre la descripción de la selección, pero cuando se envié la petrición recoger un valor secundario.

Bueno el query es asi

Select valorId, ValorDesc From Tabla

Ya me funciona con esto:

Código:

query = "valorId, ValorDesc From Tabla"
        Try
            MyConnection.Open()
            cmd = New SqlCommand(query, MyConnection)
            Dim lector = cmd.ExecuteReader
            While lector.Read()
                ListPermisos.Items.Add(New ListItem(lector.Item("ValorDesc"), lector.Item("valorId,")))
            End While
        Catch ex As SqlException
            'MsgBox("Sin conexion")
            MyConnection.Close()
        End Try
        MyConnection.Close()

Me muestra el ValorDesc, esta bien, pero al seleccionar el checkbox y hacer una petición recoger ValorId....

De antemano muchas gracias

[dadabit]

Protected Sub BidnCheckBoxList()
query = "Select ValorDesc, ValorId From Tabla"
Try
MyConnection.Open()
cmd = New SqlCommand(query, MyConnection)
ListPermisos.DataSource = cmd.ExecuteReader()
ListPermisos.DataTextField = "ValorDesc"
ListPermisos.DataValueField = "ValorId"
ListPermisos.DataBind()
MyConnection.Close()
Catch ex As Exception
MsgBox("Sin conexion")
MyConnection.Close()
End Try
End Sub

Ya lo conseguí de esta manera