Visual Basic.NET - Boton Editar dentro de un DataGridView (VB.NET)

Sub editarprod()

    'para actualizar los datos

    'en este solo actualiza cantidad

    Dim i As Integer ' valor de la celda

    i = DataGridView1.CurrentRow.Index

    n = DataGridView1.Item(1, i).Value()

    m = DataGridView1.Item(4, i).Value()

    Using conn As New SqlConnection(CADENACONEXION3)

        conn.Open()

        Dim query As String = "UPDATE vale SET  cantidad=@cantidad   WHERE clave = @clave"

        Dim cmd As New SqlCommand(query, conn)

        Try

            cmd.Parameters.Clear()

            cmd.Parameters.AddWithValue("@clave", n)

            cmd.Parameters.AddWithValue("@cantidad", frmcantidad.txtcantidadnew.Text)

            cmd.ExecuteNonQuery()

            MessageBox.Show("PRODUCTO ACTUALIZADO CORRECTAMENTE") ' si los datos fueron actulaizados mandara este mensaje 

            Dim obj As New llenarclase

            obj.llenarvale(DataGridView1) 'llena el datagridview

        Catch ex As Exception

            MessageBox.Show("ERROR AL INGRESAR EL PRODUCTO") 'si los datos no fueron guardados mandara este mensaje

        Finally

            conn.Close()

        End Try

    End Using

End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    frmeditar.Show()

End Sub