In primo luogo suggerisco di aprire le select e non eseguirle, usando recordset.Open e non connessione.Execute.