Connessione.bas

Option Explicit
Dim Cn As ADODB.Connection 'DatabaseArchivio.mdb server
Dim CnConnessioni As ADODB.Connection 'Archvio.mdb locale

-----------------------------------------------------------------

Form1 (Principale)
Set CnConnessioni = New ADODB.Connection
CnConnessioni.CursorLocation = adUseClient
CnConnessioni.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\Archivio.mdb" APRE DB IN LOCALE


Set rsRecordSetConnessioni = New ADODB.Recordset
rsRecordSetConnessioni.Open "SELECT [Archivio] From [Connessioni]", CnConnessioni, adOpenStatic, adLockOptimistic INTERROGA CAMPO TABELLA

Connessione = rsRecordSetConnessioni!Archivio & ""


Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '" & Connessione & "'" CARICA CONN SERVER


------------------------------------------------------------------

Altre form
Set rsRecordSet2 = New ADODB.Recordset
rsRecordSet2.Open "SELECT [Nome Prodotto] From [Struttura: Archivio] group by [Nome Prodotto] order by [Nome Prodotto] ", Cn, adOpenStatic, adLockOptimistic
Set rsRecordSet3 = New ADODB.Recordset
rsRecordSet3.Open "SELECT [Documento],[Posizione] From [Struttura documenti] order by [Posizione] ", CnConnessioni, adOpenStatic, adLockOptimistic

------------------------------------------------------------------

Quando apro una finestra mi da questo errore:
Connessione chiusa o non valida, in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

La parte della FORM_PRINCIPALE è perfessa perchè si connette ad entrambi i DB sia a quello in locale sia al server.

Generaldo il solito file di ACCESS, che identifica la conn aperta

Il problema sta quando apro le apre finestre e creo i recordset, quindi vuol dire che gli manca qualche parametro di connessione

Dove potrebbere essere l'errore, mi date una mano

Ciao e grazieeeeeeee