[Vb6] regroupement dans un Data Report - regroupement sans Data Environment

Titre : regroupement dans un Data Report sans Data Environment ?

Bonjour,

Je cherche à créer un regroupement dans un Data Report sans utiliser un Data Environnement.

J’ai ajouté une section en-tête de groupe sur mon Data Report. Dans le code, j’ai défini le recordset source et les champs associés aux différentes zones de texte du Data Report.

Seulement, quand j’exécute, j’ai le message d’erreur suivant :
« Les sections de l’état ne correspondent pas à la source de données »

Si je supprime l’en-tête de groupe du Data Report et le code associé à cet en-tête, l’état est généré sans soucis.

Bref, j’aimerais savoir comment coder un regroupement dans un Data Report…

Merci pour votre aide.

Pour info, voici mon code :
-------------------------------------------------------------------------------------------
Dim Rs As New ADODB.Recordset

StrEtat = "select * from destinataire, message where destinataire.numdes = message.numdes"
StrEtat = StrEtat & " and destinataire.numdes in (" & StrNumdes & ") and datmes = '"
StrEtat = StrEtat & LblDate.Caption & "' order by nomdes, predes"

Rs.Open StrEtat, Cn, adOpenDynamic, adLockOptimistic
Set DataReport1.DataSource = Rs

With Me.Sections("GroupeDes").Controls 'Section En-tête de groupe
.Item("txtnomdes").DataField = "nomdes"
.Item("txtpredes").DataField = "predes"
End With

With Me.Sections("SectionMess").Controls 'Section Détails
.Item("txtdatmes").DataField = "datmes"
.Item("txtheurmes").DataField = "heurmes"
.Item("txtnomapp").DataField = "nomapp"
.Item("txtpreapp").DataField = "preapp"
.Item("txtsocapp").DataField = "socapp"
.Item("txttelapp").DataField = "telapp"
End With
---------------------------------------------------------------------------------------------------
merci pour votre aide