salvar CheckBoxList no banco com asp.net(vb) + mysql

If Not Page.IsPostBack Then
            Dim myConnString As MySqlConnection            Dim daMySQl As MySqlDataAdapter            Dim dsDataset As DataSet            Dim mySelectQuery, erro As String

            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.DataBind()
            myConnString.Close()
            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)

                    With objCmd1                        .Parameters.Add(New MySqlParameter("id_redes", redesSociais.Items(i).Value))                        .Parameters.Add(New MySqlParameter("id_proposta", Session("idProposta")))                    End With
                    objCmd1.ExecuteNonQuery()
                    objCmd1 = Nothing                    objConn1.Close()                    objConn1 = Nothing
                End If
            Next
        End If

If Not Page.IsPostBack Then


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




            'myConnString = New MySqlConnection("server=localhost; user id=root; password=root; database=banco_sistema")

            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.DataBind()


            myConnString.Close()


            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)




                    With objCmd1
                        .Parameters.Add(New MySqlParameter("id_redes", redesSociais.Items(i).Value))
                        .Parameters.Add(New MySqlParameter("id_proposta", Session("idProposta")))
                    End With


                    objCmd1.ExecuteNonQuery()


                    objCmd1 = Nothing
                    objConn1.Close()
                    objConn1 = Nothing


                End If


            Next


        End If