hi,
plz try below..it may be helpfull
Dim Dl As String = "Datalist Items Checked:<br />"
For Each dli As DataListItem In DataList1.Items
Dim chk As CheckBox = DirectCast(dli.FindControl("CategoryID"), CheckBox)
If chk.Checked Then
Dl += (chk.Text + "<br />")
End If
Next
DlLiteral.Text = Dl
refer
this[
^]