gravar CheckBoxList no banco

galera estou tentando gravar CheckBoxList no banco mysql com aspnet vb ele gravada a

mensagem de gravado com sucesso mas no banco esta vazio nem cria o registro estou montando assim

carregaRedes()

Dim i

For i = 0 To redesSociais.Items.Count - 1

If redesSociais.Items(i).Selected Then

Dim objConn1 As MySql.Data.MySqlClient.MySqlConnection
Dim objCmd1 As MySql.Data.MySqlClient.MySqlCommand
Dim strConnString1, strSQL1 As String

strConnString1 = "Server=mysql.mr2digital.com.br;User Id=mr2digital; Password=mr234567; Database=mr2digital; Pooling=false"
objConn1 = New MySql.Data.MySqlClient.MySqlConnection(strConnString1)
objConn1.Open()

' FOR INSERT '

 strSQL1 = "INSERT INTO proposta_rede_item (id_proposta,id_redes ) " & _
 "VALUES (?id_proposta,?id_redes )"

 objCmd1 = New MySql.Data.MySqlClient.MySqlCommand(strSQL1, objConn1)

 Dim id_rede As Integer = redesSociais.DataValueField = "id_redes"

 With objCmd1
 .Parameters.Add(New MySqlParameter("id_redes", id_rede))
 .Parameters.Add(New MySqlParameter("id_proposta", "005"))
 End With

 objCmd1.ExecuteNonQuery()

 objCmd1 = Nothing
 objConn1.Close()
 objConn1 = Nothing

 End If

 Next

e no carrega redes

Public Sub carregaRedes()

Dim myConnString As MySqlConnection
Dim daMySQl As MySqlDataAdapter
Dim dsDataset As DataSet
Dim mySelectQuery, erro As String

Try

'myConnString = New MySqlConnection("server=localhost; user id=root; password=root; database=banco_sistema")
myConnString = New MySqlConnection("server=mysql.mr2digital.com.br; user id=mr2digital; password=mr234567; database=mr2digital")

 mySelectQuery = "select id_redes, rede_nome from proposta_rede;"

 daMySQl = New MySqlDataAdapter(mySelectQuery, myConnString)
 dsDataset = New DataSet
 daMySQl.Fill(dsDataset, "proposta_rede")
 redesSociais.DataSource = dsDataset
 redesSociais.DataValueField = "id_redes"
 redesSociais.DataTextField = "rede_nome"
 redesSociais.DataBind()

 myConnString.Close()

 Catch ex As Exception

 erro_message.Text = ex.Message.ToString

 erro = ex.ToString
 erroEmail.enviaMensagemEmail(erro)

 End Try

 End Sub

ele até da mensagem da REDE CADASTRADA COM SUCESSO mas no banco não tem nada e nem cria nova linha nada

alguem pode me ajudar

att.