':::Procedimiento para conexion a Access
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Tutoriales\Tutoriales.mdb")
':::Declaramos nuestra variable Sql que almacenara nuestra consuta
Dim Sql As String = ""
':::Usamos un ciclo For Each para recorrer nuestro DataGridView llamado DataGridView1
For Each Row As DataGridViewRow In DataGridView1.Rows
':::Obtenemos los valores que vamos a pasar a nuestra consulta para ser guardados
Dim cantidad As Integer = Row.Cells("Cantidad").Value
':::Codigo
Dim Codigo As Integer = Row.Cells("Codigo").Value
':::Creamos nuestra consulta de tipo Insert y le pasamos nuestros valores
Sql = " UPDATE STOCK SET CANTIDAD = CANTIDAD - " & cantidad & " WHERE ID = " & Codigo & " "
Dim cmd As New OleDbCommand(Sql, Con)
Try
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
Catch ex As Exception
MsgBox("No se pueden actualizar los registro por: " & ex.Message, MsgBoxStyle.Critical, ":::Aprendamos de Programación:::")
End Try
Next