Sources

 

Connection une source ODBC et navigation dans un recordset

Dim oConn As Object
Dim oRS As Object

Set oConn = CreateObject("ADO.Connection")
oConn.Connect "pubs", "sa", ""
Set oRS = oConn.Execute("select * from authors")
Do While Not oRS.EOF
    Debug.Print oRS.Fields("au_lname").Value
    oRS.MoveNext
Loop