[VB6] Path Dinamici su ADODB.Connection

[ominoroby]

Signori... ho un piccolo problemino...
Roba banale credo...
ma se volete aiutarmi vi ringrazierei MOLTISSIMO!

Dunque...

Avete presente quando si crea una connessione?

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ Data Source=C:\Progetti\[Programma]\Data\[NomeFileAcces].mdb; " & _ "Persist Security Info=False"

Bene... Si parla di connessione ad un mdb Access.

Se io volessi spostare il DB in questa directory:

F:\Visual Basic 6.0\Progetti\[Programma]\Data\[NomeFileAcces].mdb

Come posso fare per non cambiare il codice?

C'è una sorta di %root% o robe del genere?

Spero di essere stato abbastanza chiaro...
In caso contrario chiedete pure...

Grazie e Ciao!

[ominoroby]

Ragazzi.. anche qui ho risolto da solo...

Forse sono abituato un po troppo a confrontarmi, o forse la lezione è che nella vita, o ti arrangi o gli altri se ne fregano...

Ciao!

[LMondi]

Dai non essere così pessimista ... Personalmente ho ricevuto diversi aiuti anche per problemi complessi.
Ora se hai risolto da solo il problema della connessione dinamica ad DB tanto meglio, comunque ti posto due esempi di stringhe di connessione che ho in uso e che funzionano egregiamente, così magari le confronti.
Dichiara in un modulo Bas una variabile Public DataConnessione As Stringe e nello stesso modulo inserisci una delle due stringhe di connessione:

'Stringa di connessione senza password:
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyDB.mdb;Persist Security Info=False;" 
'Stringa di connessione con password:
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyDB.mdb;Jet OLEDB:Database Password=MyPW;"