insert multiple chekcboxlist

may i know how to reduce this junk of code ..

i have those chkSubjects , chkKet .. as different checkboxlist

my situation here is : i have multiple checkboxlist , when i want to press save button, i would like to insert those selected = true value into database
1
2 For iLoop = 0 To chkSubjects.Items.Count - 1
3 If chkSubjects.Items(iLoop).Selected = True Then
4 Dim qryInsertSubjects As String = "INSERT INTO Subject (ID, Subject) VALUES ('" & strStudentID & "','" & chkSubjects.Items(iLoop).Value & "')"
5 Database.ODBCExecute(qryInsertSubjects, co ...