Volevo scrivere dao e ho scritto ado....

Comunque, epr aprire una connessione dao con DSN devi utilizzare openconnection.

Creare un workspace

codice:
Set Ws = DBEngine.CreateWorkspace("NewWorkspace", mUser, mPswd, dbUseODBC)
e poi aprire il db

codice:
Set Db = Ws.OpenConnection("nome", dbDriverNoPrompt, , "ODBC;DATABASE=" & nomedb & ";UID=" & DbUser & ";PWD=" & Pswd & ";DSN=" & Dsn)