Multiple Checkbox selecteion code using checkedlistBox

See more:

VB

SQL

My question is how to Insert Multiple Selected values using checkedListbox in vb.net2008 to Sql Server2005... In which i am using CheckedlistBox1 and One comboBox ...
My code is this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each item As CheckedListBox In CheckedListBox1.Items
       If item.SelectedItems.ToString Then
           'Insert code for inserting data to SQL
           cmd.CommandText = "insert into Module_Control_tbl (empl_ID,Module_ID) Values('" & ComboBox1.SelectedValue & "','" & CheckedListBox1.SelectedValue & "')"
           ComboBox1.Focus()
           cmd.Connection = Cn
           cmd.ExecuteNonQuery()
           MsgBox("Assign Module Successfully to Employee")
           Form7_Load(sender, e)
       End If
   Next