connessione DAO

[magnus]

Come posso aprire una connessione DAO ed utilizzare un recordset?

[magnus]

Sono riuscito ad aprire la connessione:

'Dim our variables
Dim DB As Database
Dim RS As Recordset
Dim WS As Workspace

'This sets a workspace for the database
Set WS = DBEngine.Workspaces(0)
'this opens the database
Set DB = WS.OpenDatabase("c:\2003.mdb")
'this opens a table inside the database
Set RS = DB.OpenRecordset("tabella1", dbOpenTable)

'close the database
DB.Close

Ma come posso ( invece di puntare a c:\2003.mb ) utilizzare un dns di sistema?

Cioè scrivere:
Set DB = WS.OpenDatabase("miodns") 'Il dns punta al db

[magnus]

setdbExemple=wsExemple.OpenDatabase("",dbDriverNop rompt,False,"odbc;_
DNS=myDNS;UID=myUID;PWD=myPassword;"

Con un codice del genere mi esce sempre la selezione dati...

Perchè?