For i = 0 To dl.Items.Count - 1
If CType(dl.Items(i).FindControl("Subject"), CheckBox).Checked = True Then
subjectgrade = CType(dl.Items(i).FindControl("Subject"), CheckBox).Text & "," & subject
End If
Next
Dim i As Integer
For i = 0 To dl_SubjectGrade.Items.Count - 1
If CType(dl_SubjectGrade.Items(i).FindControl("cb_SubjectGrade"), CheckBox).Checked = True Then
txtSQL = "insert into TeacherResearch(SubjectGrade) values('" & CType(dl_SubjectGrade.Items(i).FindControl("cb_SubjectGrade"), CheckBox).Text "')"