Cita: 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