CheckedListBox - Need to Loop Selected Items...

After viewing dozens of posts on this and trying various solutions, I'm still not getting it...

Here's my code to add items to my CheckedListBox, which works fine:
*************************************************************************
Dim dsDistrict As New DataSet

        strSQL = "SELECT CSS_CD, CSS_DESC || ' (' || CSS_CD || ')' AS ADESC " _
               & "FROM CSSTBL " _
               & "WHERE (CSS_TBL = '5030') " _
               & "ORDER BY ADESC"
        dsDistrict = Utility.GetSQLLiteData2("csstbl.db", strSQL)

        Me.clbDistrict.DataSource = dsDistrict.Tables(0)
        Me.clbDistrict.ValueMember = "CSS_CD"
        Me.clbDistrict.DisplayMember = "ADESC"
*************************************************************************

When I check or uncheck any item(s) in the CheckedListBox, I need to loop through all of the items and react to any which are currently selected...

Any assistance appreciated...Start Free Trial