Visual Basic.NET - Problemas al actualizar tabla acces desde un datagridview

Dim s As String = "SELECT ID, CODIGO, DESCRIPC,EXISTENCIA FROM PRODUCTO"

cargar_edicion(s, enlace, "PRODUCTO")

DataGridView1.DataSource = edicionds.Tables("producto")

'Deposito lo que hay en el textbox en el campo Existencia. y me lo actualiza en el Grid

'DataGridView1.Item("existencia", DataGridView1.SelectedRows(0).Index).Value = ProdFinal.Text

'salvo los datos en la tabla , 

adapter.Update(edicionds, "producto")

edicionds.AcceptChanges()

Me.Validate()

Me.productoBindingSource.EndEdit() '' si usas uno

conexion()  'Estsa es tu variable de conexion

Dim cmd As New OleDbCommand("SELECT * FROM tu_tabla", cnx)

Dim dt As New DataTable

Dim da As New OleDbDataAdapter(cmd)

da.Fill(dt)

Me.DataGridView.DataSource = dt

Me.DataGridView.DataBind()

cnx.Close()

conexion()

Dim cmd As New SqlCommand("UPDATE t_articles SET Descripcion= @Descripcion, PrecioCompra=@PrecioCompra, PrecioVenta=@PrecioVenta, Ganancia=@Ganancia, UnidadMedida=@UnidadMedida, Tipomedida=@TipoMedida, CantidadMinima=@CantidadMinima, CantidadAlerta=@CantidadAlerta, CantidadActual=@CantidadActual, CantidadIngreso=@CantidadIngreso WHERE Codigo='" & Frm_Articles.TxtCodigo.Text & "'", cnx)

cmd.CommandType = CommandType.Text

cmd.Parameters.Add(New SqlParameter("@Descripcion", Frm_Articles.TxtDescripcion.Text))

cmd.Parameters.Add(New SqlParameter("@PrecioCompra", Frm_Articles.TxtPrecioCompra.Text))

cmd.Parameters.Add(New SqlParameter("@PrecioVenta", Frm_Articles.TxtPrecioVenta.Text))...