Visual Basic - DISEÑO REPORTE VISUAL

Que tal amigos. Tengo un problema. Pude diseñar mi reporte perfectamente pero cuando lo voy a mostrar por código me genera un error. Si ejecuto directamente el informe si sale bien, les agradezco si me colaboran con este tema. Dos cosas: estoy ejecutando un procedimiento almacenado y me doy cuenta que el problema va a cuando realizo el agrupamiento.

El código es el siguiente:

Dim prn_proy As Double
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As ConexionSQL 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorno = New ConexionSQL

Entorno.babero.ConnectionString = "PROVIDER=MSDASQL; DSN=Calculo"
'Set Listado = Entorno.Commands("command1_grouping")

Set Listado = Entorno.Commands("command1_grouping")
Listado.CommandType = adCmdStoredProc

Listado.CommandText = " SHAPE {{? = CALL dbo.s_babero(?) }} AS Command1 COMPUTE Command1, SUM(Command1.'TOTAL') AS Agregado1 BY 'PROYECTO','GRUPO'"
'Listado.Parameters.Item(0).Value = 1720001
Load datos
Screen.MousePointer = vbDefault
datos.Show vbModal

hola espero que te sirva de algo yo encontre una web personal donde puedes bajarte 4 sistemas completos en visual y access

www.v-rojas.tk

esta en la opcion codigos
visual basic