DAOODBC

Public Sub ApriFonteODBC()
Dim wrkODBC As Workspace
Dim conODBC As Connection
Dim rs As Recordset
On Error GoTo GestError
'Crea l'oggetto Workspace di ODBCDirect.

Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
'Il nome della fonte dati utilizzata in questo caso e' MyDSN

Set conODBC = wrkODBC.OpenConnection("Connection1", dbDriverNoPrompt, , "ODBC;UID=;PWD=;DSN=MyDSN")
'il database utilizzato in questo esempio contiene

'una tabella Regioni; modificarla con i propri dati

Set rs = conODBC.OpenRecordset("select * from Regioni")
Do While Not rs.EOF
'Visualizza nella finestra di debug tutti i valori del

'Fields(1) (la tabella in questo caso ha due campi)

Debug.Print rs.Fields(1)
rs.MoveNext
Loop
conODBC.Close
wrkODBC.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub