Buongiorno,

ho una fissa che mi attanaglia e che non sono riuscito a risolvere.
Volevo crearmi una sub contenente le 3 istruzioni di connessione archivio (adodb.connection), ma non riesco a passare il nome della connessione. Mi spiego:

vorrei racchiudere queste istruzioni

codice:
     Set dbarchivio = New Connection
      dbarchivio.CursorLocation = adUseClient
  
    
    dbarchivio.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password="
in una sub da richiamare dove ho dbarchivio dichiarata come variabile (ora mi scuso se non sto usando i termini tecnici corretti)

Tipo:
codice:
public sub apridb (byval nomedb as adodb.connection)
     Set apridb= New Connection
      apridb.CursorLocation = adUseClient

    
    apridb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password=" 

end sub
da richiamare

codice:
apridb dbarchivio

Il problema è che dopo l'struzione, dbarchivio non è inizializzata. Questo perchè non inizializza le prime due istruzioni, che se le metto fuori dalla sub, prima del richiamo della stessa, allora funge. Ma io volevo generalizzare anche loro, per scrivere meno codice

Grazie.