PORFAVOR AYUDA!!!

nicop
27 de Abril del 2004
necesito que me ayuden ocn un problema de data report. Tengo el data environment conectado a la base y el data report al envirnment,.
en el boton inprimir puse este codigo
Set entorno = New DataEnvironment2
DataEnvironment2.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "ventas.mdb" + ";Persist Security Info=False"
DataEnvironment2.Connection1.Open
Set listado = entorno.Commands("Venta")
listado.CommandType = adCmdText
listado.CommandText = " SHAPE { SELECT producto, cantidad, total,fecha,operador,rubro,stock from tabla1 where (rubro = c) and (operador = d) and fecha between (a) and (b) order by fecha} AS Command1 COMPUTE SUM(Command1.'total') AS Ventas, Command1 "
DataEnvironment2.venta Combo2.Text, Combo1.Text, Mask1.Text, Mask2.Text
Load DataReport2
DataReport2.Show 1
DataReport2.Refresh
Unload Me
pero me dice que tengo que hacer la consulta sql. O sea que no me la acepta. esto lo hago porque al instalarlo no me funciona si no lo hago por codigo..
GRACIAS!!!! AYUDEN!!