Io mi riferivo a
in cui nomedb è una connessione (e non un nome di db) LOCALE. E che non è possibile che sia utilizzato al di fuori di quella Sub.privatesub prova
dim nomedb as adodb.connection
Set nomedb =NewConnection
nomedb .CursorLocation= adUseClient
nomedb .Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDBatabase Password="
... questa funzionerebbe (anzi, funziona) normalmente. Magari non è il massimo della codifica, però funge.
Non cambiamo le carte in tavola.