...
'以下のコードは、ルート レベルのフィールド レイアウトに少なくともひとつの集計があることを想定します。
Try
    Dim val As Object = Me.xamDataPresenter1.Records.SummaryResults(0).Value
    Dim summaryValue As Decimal = Convert.ToDecimal(val)
    MessageBox.Show(String.Format("First summary value is {0}", summaryValue))
Catch
    '警告なしに失敗する
End Try
...