[VB6] connessione DAO

[angelicab]

ciao!
Potreste darmi un esempio di connessione DAO ad un db e la relativa apertura di un recordset??????????

[tas]

'necessaria la libreria DAO
Dim db As Database
Dim rs As Recordset
Dim sql As String

Set db = DBEngine.OpenDatabase("c:\test.mdb")

sql = "SELECT Clienti.* FROM Clienti ORDER BY Nome"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Do Until rs.EOF
    Debug.Print rs("Nome")
    rs.MoveNext
Loop

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing