Abbi pazienza, ma di nuovo confermo che il tuo codice (tutte le varie versioni) è tutto sbagliato.
Sia dal punto di vista tecnico che logico, per 2 motivi:
1. Non soddisfa la richiesta iniziale, che era creare un sub/funzione che fosse richiamabile con:
apridb dbarchivio
2. La connessione, per aprirla la apri, ma sarà inutilizzabile.