Visual Basic - Problema con informes

En la aplicacion que estoy haciendo, creo una serie deinformes mediante un dataenviroment y asigno la consulta al data report desde un formulario. Exactamente asi:

consulta = "SHAPE {select * from articulos where cod_articulo = '" & Me.cmbarticulo.Text & "'} AS Command3 APPEND ({SELECT * FROM almacen} AS Command4 RELATE cod_articulo TO cod_articulo) AS Command4"

entornodatos.Commands("Command3").CommandText = consulta

De forma que la consulta cambia segun el articulo que elijas. Pero una vez que cierras el informe y te abres el informe de otro articulo, te abre el informe con los datos del 1º articulo que abriste. La consulta que le pongo al command3 la comprobe y se la pongo bien. ¿Puede ser por los archivos temporales de los informes que guarda el vb6?. No le encuentro otra explicacion. Si es asi,¿ como se evita esto?. Espero que me puedan ayudar. Gracias.

PD: Espero que me haya explicado bien jeje.

Ya encontre la solucion. Por si a alguien le interesa...........

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
entornodatos.rshoja_diaria_servicios.Close
End Sub

los objetos son:
entornodatos = dataenviroment
hoja_diaria_servicios = comand del dataenviroment
el rs que va delante del command formaparte de la propiedad del dataenviroment, no forma parte del nombre del command. Buscar la propiedad que lleve el rs delante del nombre.
Saludos