编辑组合框项目

我有一个名为“条形码”的组合框，我从数据库中这样填写：

    Sub fillIBarcode()
        Barcode.DataSource = Nothing
        Barcode.Items.Clear()
        Dim adp As New SqlClient.SqlDataAdapter("Select distinct Barcode from Items where  ItemCode=N'" & (ItemsDGV.CurrentRow.Cells(0).Value) & "'", SQlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        '=====================================================
        For I = 0 To dt.Rows.Count - 1
            Barcode.Items.Add(dt.Rows(I).Item("Barcode"))
            Barcode.SelectedIndex = 0
        Next
    End Sub

它显示为：

现在我想当用户编辑和更改组合框中的任何数字并单击“编辑”按钮时，如何提交此更改并立即更新数据库中的组合框项目列表？

我所做的尝试：

Private Sub Editbtn_Click(sender As Object, e As EventArgs) Handles Editbtn.Click
Dim sql = "select * From Items where ItemCode=N'" & (ItemCode.Text) & "'"
            Dim adp As New SqlClient.SqlDataAdapter(sql, SQlconn)
            Dim ds As New DataSet
            adp.Fill(ds)
            Dim dt = ds.Tables(0)
            If dt.Rows.Count > 0 Then               
                For i = 0 To Barcode.Items.Count - 1
                    Dim dr = dt.NewRow
                    dr!Barcode = Barcode.Items(i).ToString
                    dt.Rows.Add(dr)
                Next
                Dim cmd As New SqlClient.SqlCommandBuilder(adp)
                adp.Update(dt)
            End If
End Sub

但它添加了新值，而不是更新现有值。

提前感谢