Dopo che chiudi la connessione con il test dell'IF, subito dopo devi di nuovo creare l'oggetto Connection quindi reinserire l'istruzione
Set Cn = new Adodb.connection

Almeno credo....