how do i simplify the code here For iLoop = 0 To chkSubjects.Items.Count - 1 If chkSubjects.Items(iLoop).Selected = True Then Dim qryInsertSubjects As String Go to the complete details ... Bookmark It