Private Sub dtMetering_Row_Changing(ByVal sender As Object, ByVal e As DataRowChangeEventArgs)
        'MsgBox(e.Action.ToString())
        Try
            With cmdMeteringInsert.Parameters
                '.Add...
            End With            
            With cmdMeteringUpdate.Parameters
               '.Add...
            End With

            If conn.State = ConnectionState.Open Then conn.Close()
            conn.Open()
            Select Case e.Action.ToString()
                Case "Add"
                    cmdMeteringInsert.ExecuteNonQuery()
                Case "Change"
                    cmdMeteringUpdate.ExecuteNonQuery()
            End Select
            If conn.State = ConnectionState.Open Then conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Try
                bsMeteringDb.EndEdit()
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
End Sub