Cita:
Iniciado por maxxifernandez 
[B]Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
Me.conectar()
Dim actualizar As String
Dim ganancia_v As Decimal
Dim precioCompra_v As Decimal
Dim porcentaje_v As Decimal
Dim precioVenta_v As Decimal
Dim stock_v As Decimal
Dim cantidad_v As Decimal
actualizar = "UPDATE TabProductos" & " SET stock_v = @Stock" & _ --> esta linea nose si esta bien
" WHERE CodProducto = @CodProducto"
precioCompra_v = CDec(Me.txtPrecioCompra.Text)
porcentaje_v = CDec(Me.txtPorcentaje.Text)
cantidad_v = CDec(Me.txtCantidad.Text)
ganancia_v = (precioCompra_v * porcentaje_v) / 100
precioVenta_v = precioCompra_v + ganancia_v
stock_v = (stock_v + cantidad_v)
Dim cmdActualizar As New SqlCommand(actualizar, miConex)
cmdActualizar.Parameters.AddWithValue("@Stock", stock_v)
miConex.Open()
Try
Dim ACT As Integer
ACT = CInt(cmdActualizar.ExecuteNonQuery)
Catch ex As Exception
MsgBox("Error al Actualizar TabProd") ---------> salta el error al actualizar tabla de productos
End Try
miConex.Close()
MsgBox("Datos Actualizados TabProd")
Hola no se si ya encontraste el problema y no se si te falto poner parte de tu codigo, pero no veo en que parte le asignes y pases el valor a @CodProducto para completar tu Query.