Es posible agrupar un Datareport sin Dataenvironment?

[hunter18]

Tengo un codigo y corre bien pero depende de un DataEnvironment ademas de utilizar las clausulas SHAPE y COMPUTE para agrupar la tabla productos por categoria, es posible hacerlo sin el DataEnvironment?

Código:

Sub Productos_categoria()
Dim cnxListado As ADODB.Command 'Objeto de tipo comando.
Dim Entorno As dteEntornoDatos  'Nuestro entorno de datos.

Set Entorno = New dteEntornoDatos 'Iniciamos el entorno de datos.
Entorno.cnxListados.ConnectionString = cn.ConnectionString
        
Set cnxListado = Entorno.Commands("ComProducto_Grouping")
    
Con_sql = "SHAPE{SELECT P.CodProd, P.NomProd,P.PrecioVenta, P.CodCat, C.NomCat" & _
                 " FROM Categoria C, Producto P WHERE C.CodCat=P.CodCat" & _
                 "}AS ComProducto COMPUTE ComProducto BY 'CodCat','NomCat'"
  
cnxListado.CommandType = adCmdText
cnxListado.CommandText = Con_sql
    
Load drShape

Set drShape.DataSource = Entorno
drShape.Show 1

End Sub

Aqui esta la imagen del reporte que tengo el cual utiliza datenvironment.