Try
Dim i As Integer = DataGridView1.CurrentRow.Index
sql = "Update tbStockCard Set AmountReceive = AmountReceive+'" & CInt(txtAmontReceive.Text) & "'
Where docuno = '" & DataGridView1.Item(0, i).Value & "'"
cmd_excuteNonquery()
Catch ex As Exception
End Try