[VB6]Modificare stringa di connessione adodc in runtime

[Mychy]

Come posso modificare la stringa di connessione di un controllo adodc a runtime, più precisamente questa stringa dovrebbe puntare in un db diverso a seconda delle opzioni scelte per poi visualizzare i dati in un datagrid.
Io ho fatto cosi(e mi da errore):

Private Sub cmdAggiorna_Click()

AdodcRicFatture.ConnectionString = "Provider = MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=C:\cash&carry\dat\" & varDatabase & ".mdb;DefaultDir=C:\cash&carry\dat;Driver={Microso ft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\cash&carry\dat\datiCeC.dsn;MaxBu fferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTran sactions=0;Threads=3;UID=admin;UserCommitSync=Yes; "

AdodcRicFatture.Refresh
End Sub

[Mychy]

Problema risolto

:gren: :mavieni: :gren:

[Toeke]

Originariamente inviato da Mychy
Problema risolto

:gren: :mavieni: :gren:

Sarebbe carino se ci spiegassi come hai risolto il problema cosiche' chi ha il tuo medesimo quesito possa valutare la tua soluzione.




Toeke

[Mychy]

Non l'ho detto perchè non era il caso, comunque:

AdodcRicFatture.ConnectionString = "Provider = MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=C:\cash&carry\dat\" & varDatabase & ".mdb;DefaultDir=C:\cash&carry\dat;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\cash&carry\dat\datiCeC. dsn;MaxBufferSize=2048;MaxScanRows=8;Pag
eTimeout=5;SafeTransactions=0;Threads=3;
UID=admin;UserCommitSync=Yes;"

Quello segnato in rosso era di troppo, una svista :gren: