используй заголовок или примечание группы

Private Const adhcMaxGroups = 10

Public Function adhCountGroups(rpt As Report) As Integer
' Count the number of groups in a report.

' From Access 2002 Desktop Developer's Handbook
' by Litwin, Getz, and Gunderloy (Sybex)
' Copyright 2001. All rights reserved.

Dim intI As Integer
Dim intOrder As Integer

On Error Resume Next
For intI = 0 To adhcMaxGroups - 1
intOrder = rpt.GroupLevel(intI).SortOrder
If Err.Number <> 0 Then
Exit For
End If
Next intI
adhCountGroups = intI
Err.Clear
End Function