Visual Basic - Datareport, encabezado de grupo

Hola amigos..
Trabajo en una aplicaicon con VB6 y ACCESS 2K con datareport y no he sabido en codigo como hago para hacer un informe con encabezado de grupos .. alguien sabe como ???
Este es el codigo que uso para el reporte..

Public Sub ReporteAnotaciones()

Set rsRepAnota = New ADODB.Recordset
rsRepAnota.CursorLocation = adUseClient
rsRepAnota.Open strQueryAnota, cnn1, adOpenDynamic, adLockPessimistic
X = rsRepAnota.RecordCount

With DRAnotaciones.Sections("Sección1").Controls
.Item("texto1").DataField = rsRepAnota("FECHA").Name
.Item("texto2").DataField = rsRepAnota("NOVEDAD").Name
.Item("texto3").DataField = rsRepAnota("MUNICIPIO").Name
.Item("texto4").DataField = rsRepAnota("LUGAR").Name
.Item("texto5").DataField = rsRepAnota("OBSERVACIONES").Name

End With

With DRAnotaciones.Sections("Sección2").Controls
.Item("etiqueta1").Caption = "Fecha"
.Item("etiqueta2").Caption = "Novedad"
.Item("etiqueta3").Caption = "Municipio"
.Item("etiqueta11").Caption = "Lugar"

End With

With DRAnotaciones.Sections("Sección4").Controls
.Item("etiqueta9").Caption = "ANOTACIONES DEL EMPLEADO"
.Item("etiqueta17").Caption = "Identificación del Empleado"
.Item("etiqueta12").Caption = FrmQuienEsQuien.Text1.Text
.Item("etiqueta14").Caption = FrmQuienEsQuien.Text2.Text
.Item("etiqueta15").Caption = FrmQuienEsQuien.Text4.Text
.Item("etiqueta16").Caption = FrmQuienEsQuien.Text3.Text

End With

With DRAnotaciones.Sections("Sección5").Controls
.Item("etiqueta13").Caption = "TOTAL REGISTROS IMPRESOS " & " " & X
End With

DRAnotaciones.Caption = "REPORTE DE NOVEDADES DEL EMPLEADO"

Set DRAnotaciones.DataSource = rsRepAnota

'mostrar el reporte
DRAnotaciones.Show

End Sub

Espero una ayuda..!!!!!

Groval