Visual Basic - ayuda con datareport

tengo el siguiente código para mostrar un reporte realizado usando el datareport
pero me marca el siguiente error a la hora de correr la última línea (la de rptLibros.Show vbModal)

error:
"no se estableció un comando para el objeto de comando"

Private Sub cmdReporte_Click()
Dim reporte1 As ADODB.Command 'objeto de tipo comando
Dim Entorno As dteEntornoDatos Entorno de datos
Screen.MousePointer = vbHourglass

'iniciando el entorno de datos.
Set Entorno = New dteEntornoDatos
Entorno.reporte1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\Adquisiciones.mdb"
Set reporte1 = Entorno.Commands("acmLibros_Grouping")
reporte1.CommandType = adCmdText
reporte1.CommandText = strSQL
Load rptLibros
Screen.MousePointer = vbDefault
rptLibros.Show vbModal
End Sub

espero alguien sepa y me pueda ayudar con esto

DEBES CREAR UN DATAENVIRONMENT Y EN COMANDOS ASIGNAS LA TABLA Q STAS USANDO P EL REPORTE LUEGO EL REPORTE LO UNES AL DATAENVIRONMENT...