Recibo el mensaje:  "Error 3709. No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto."
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Alberto Moreno Gil\Mis documentos\lending.mdb "
'AMG GROW.LY
'+++++++++++++++++++++
CurrentX = 2000
CurrentY = 10
Dim plataf As String
Print " AMG     Plataforma    Remesas    Cobros    Préstamos   Saldo"


CurrentX = 2500
CurrentY = 300
plataf = "GROW.LY"
'REMESAS
Rs.Open "SELECT SUM(importe) AS 'importerem' FROM remesas WHERE inversor = 'AMG' AND platform = 'aGROW.LY' ", Cn, adOpenDynamic, adLockPessimistic

Lo chocante es que me ha estado funcionando y en el momento en que he copiado (duplicado) unas líneas de código me ha aparecido este mensaje. He "comentado" las líneas copiadas pero ya me queda sin funcionar. ¿Qué puede ser? Muchas gracias.