sto diventando pesante vero....
ma ora mi da errore

ADODB.Recordset (0x800A0E7D)
Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

l errore lo da in questa riga
objRec.Open SQL, objCon