Dynamically Grouping in Data Report

[rlb_wpg]

I've read the previous "grouping in database" solutions
and was hoping someone has come across & solved my
problem. Since I already have a provider, I am unable
to set my provider to MSDataShape and am therefore unable
to query using SHAPE.

---------------
Here's my code:

Dim cntTemp As New ADODB.Connection 'DB Connection
Dim rstTemp As New ADODB.Recordset 'Recordset
Dim cmdTemp As New ADODB.Command
Dim drptRpt As drptTemp
Const conConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SwitchDB;Data Source=SQLSERVER"


cntTemp.Open conConnect 'gconConnectSwitchDB

strSQL = "Select * from table order by field1"

With cmdTemp
.ActiveConnection = cntTemp
.CommandType = adCmdText
.CommandText = strSQL
.Execute
End With

With rstTemp
.ActiveConnection = cntTemp
.CursorLocation = adUseClient
.Open cmdTemp
End With
rstTemp.MoveFirst

Set drptRpt = New drptTemp
Set drptRpt.DataSource = rstTemp

With drptRpt
.Hide

.Sections("GrpHdr").Controls.Item(1).DataMember = ""
.Sections("GrpHdr").Controls.Item(1).DataField = rstTemp(0).Name

With .Sections("Detail").Controls
.Item(1).DataMember = ""
.Item(1).DataField = rstTemp(1).Name
.Item(2).DataMember = ""
.Item(2).DataField = rstTemp(2).Name
.Item(3).DataMember = ""
.Item(3).DataField = rstTemp(3).Name
.Item(4).DataMember = ""
.Item(4).DataField = rstTemp(4).Name
End With

.Show vbModal
End With
---------------

Without the detail section everything works fine. But
with the detail section I receive the following
error: "Report sections do not match data source"


Suggestions?