Chiusura RecordSet automatica a chiusura connessione (?)

[oregon]

Cambia la sequenza in questo modo

objrsPI.Close
Set objrsPI = Nothing

objconnPI.Close
Set objconnPI = Nothing