i have this code but it only checked one checkbox
reader.Read()
Dim lst As New ListItem
Dim hArr() As String
Dim str As String = reader("hobbies")
hArr = str.Split(",")
For i As Integer = 0 To hobbieList.Items.Count - 1
If hobbieList.SelectedIndex = str Then
MsgBox(str)
hobbieList.SelectedIndex = hobbieList.Items.IndexOf(hobbieList.Items.FindByText(str))
End If
Next
For Each str In hArr
MsgBox(str)
hobbieList.SelectedIndex = hobbieList.Items.IndexOf(hobbieList.Items.FindByText(str))
Next