ayuda con dataenvironment

[anadelaisla]

ok, el código es éste, siendo conexion el nombre de mi dataenvironment y factura_detalle el nombre de un comando:

Private Sub imprimir_Click()
Dim sql As String

sql = "select coste_total from facturas where id_factura= " & idFactura.Text
Set rs = Cn.Execute(sql)


Conexion.factura_detalle idFactura.Text

report.TopMargin = 0
report.BottomMargin = 0
report.LeftMargin = 5
report.RightMargin = 0

report.Sections("fact").Controls("idfactura").Capt ion = idFactura.Text
report.Sections("fact").Controls("fecha").Caption = fecha
report.Sections("totales").Controls("coste").Capti on = rs.Fields("coste_total")
Load report
report.Show

End Sub


Y lo que no se es como se puede cerrar la conexion que se queda abierta, he intentao hacerlo con la propiedad State, pero no me deja, me dice que no es válido para la propiedad de solo lectura, y le cambio las propiedades a la conexion pero tampoco me deja....

Gracias.