Access Pivot Table Collapse Button

[spoonjy]

Hi,
I have built a pivot table using VBA in ACCESS, and some of the codes are listed below,

With frm1.PivotTable.ActiveView
.RowAxis.InsertFieldSet .FieldSets("Client name")
.RowAxis.InsertFieldSet .FieldSets("Orders")
(I have problem when a second rowaxis is inserted)

.ColumnAxis.InsertFieldSet .FieldSets("Money")

.DataAxis.InsertFieldSet .FieldSets("Price")

.AddTotal "Total Money", .FieldSets("price").Fields("price"), plFunctionSum

.DataAxis.InsertTotal .Totals("Total Money")

End With
Screen.ActiveDatasheet.PivotTable. _
ActiveData.HideDetails
(This is to show the summarised version)

what i get is, The dataaxis field is summarised, but the FIRST RowAxis(Client Name) is in "expand" mode. i have to manually click on the "Collapse" button on the tool bar in order to see the overall summarized version.

how to "Collapse" the "Client Name" fieldsets using VBA?
thanks in aniticipation.

I am using Access, not Excel, the record Macro is not available to me. and I have checked with Excel Macro code for this action, unfortunately not working for Access.

the image of illustration is attached.
[IMG]c:\untitled.jpg[/IMG]