Problema al imprimir un informe usando Datareports y DataEnvironment

[Belendi]

Tengo un problema al imprimir un informe usando Datareports y DataEnvironment con Visual Basic:

El codigo que usamos para imprimir es el siguiente:

DataEnvironmentAGCR.Connection1.ConnectionString = Trim(bd_datos.Name)

DataEnvironmentAGCR.Connection1.Open

rptcomunesccNuevoRR.visible = False

rptcomunesccNuevoRR.WindowState = vbMinimized

rptcomunesccNuevoRR.WindowState = vbNormal

Set rptAuxiliar2 = New rptcomunesccNuevoRR

rptAuxiliar2.Refresh

If Not DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion Is Nothing Then

DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion.Close

Set DataEnvironmentAGCR.Commands.Item(1).ActiveConnect ion = Nothing

End If

If Not DataEnvironmentAGCR Is Nothing Then

If Not DataEnvironmentAGCR.Connection1.State = adStateClosed Then

DataEnvironmentAGCR.Connection1.Close

End If

Set DataEnvironmentAGCR = Nothing

End If

Set rptAuxiliar2 = Nothing

El DataEnvironmentAGCR está compuesto de dos Commands, un Command1 al que tenemos asociado una sql statement y un Command2 que es hijo del anterior y al cual también tenemos asociado otra sql statement.

Sin embargo, y aunque la impresión se hace correctamente cuando salgo de la aplicación la base de datos sigue abierta.

Por si surge la duda, el único command al que podemos cerrar explícitamente la conexión activa es al Command1, parece como si el Command2 no fuera visible, al menos no encuentro la forma de acceder a él. No sé si irán por aquí los tiros.

Alguien sabría como debo cerrar la conexión para que no ocurra esto?

Gracias de antemano.