Actualizar BD al Modificar Celda de un DataGrid

[Neptuno]

Este es el codigo del metodo subCalcularCaudalesMaxYMinFlex:

Código:

    Private Sub subCalcularCaudalesMaxYMinFlex(ByVal fila As Integer)
        Dim dIncremento As Double
        Dim dCaudalMax As Double
        Dim dCaudalMin As Double
        Dim dbDataRow As DataRow

        dIncremento = System.Math.Round(DataGridAlarmas.Item(fila - 1, 5) * DataGridAlarmas.Item(fila - 1, 6) / 100, 2)
        dCaudalMax = System.Math.Round(DataGridAlarmas.Item(fila - 1, 5) + dIncremento, 2)
        dCaudalMin = System.Math.Round(DataGridAlarmas.Item(fila - 1, 5) - dIncremento, 2)

        'PRUEBAS

        DataGridAlarmas.Item(fila - 1, 3) = dCaudalMax
        DataGridAlarmas.Item(fila - 1, 4) = dCaudalMin

        'refrescamos el datagrid para que muestre los nuevos valores
        DataGridAlarmas.Refresh()

        dbDataSet.Tables(NombreTabla).Rows(fila - 1).Item("CAUDAL_NOMINAL") = DataGridAlarmas.Item(fila - 1, 5)
        dbDataSet.Tables(NombreTabla).Rows(fila - 1).Item("FC_MAX") = dCaudalMax
        dbDataSet.Tables(NombreTabla).Rows(fila - 1).Item("FC_MIN") = dCaudalMin

        dbDataAdapter.Update(dbDataSet, NombreTabla)

    End Sub

Cuando no modifico la celda si me permite moverme, solo se queda en la misma celda cuando la modifico.