Cannot create a total against a cube provider

[Frank]

I am trying following code copied from Microsoft Help file
(OWCDPL10.CHM), got error: 'Cannot create a total against a cube
provider', wonder what I am missing. Thanks in advance for your
input...

-----
' Add a new total named "Total Budget" to the current view.
Set totNewTotal = vwView.AddTotal("Total Budget",
vwView.Fieldsets("budget").Fields(0), ptConstants.plFunctionSum)

' Insert the newly created total into the detail area of the
PivotTable.
vwView.DataAxis.InsertTotal totNewTotal
----