ma se objconn l'hai già aperto, perché usi cn?

dovrebbe bastare

Set RS = objConn.Execute(SQL)