[vb.net] datagrid

Bonjour,
j'utilise un checkedListBox qui contient des codes (chaine de caractere),
je veux lorsque je coche une case s'affiche le code dans une datagrid, lorsque je decoche se supprime du datagrid, comment faire?
Voila ce que j'ai fais jusqu'a maintenant:

Private Sub bl1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles bl1.ItemCheck
        i = bl1.SelectedIndex
        If (bl1.GetItemCheckState(i) = CheckState.Unchecked) Then
            com = New SqlCommand("select code from table'", cnx)
            dta = New SqlDataAdapter(com)
            dta.Fill(dts, "BL")
            grid.DataSource = dts.Tables("BL")
        Else
            ' c'est ici ou je veux supprimer la ligne decocher
        End If
    End Sub

-bl1 c'est le nom de ma checkedListBox

merci pour votre aide,

Cordialement,