VB / Access / SQL

Bonjour,

Comment faire pour integrer une requête sql qui manipule des données dans une BD sous access, contenant une boucle, dans un code VB6?

.

Dim db As Database
Dim rs As Recordset
Dim sql As String

Set db = OpenDatabase(App.Path & "\bdd.mdb")

sql = "select * from ..."
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)

Do While rs.EOF = False

x = rs!nom_duchampdetabase
Y = Y + 1
Loop
(x=resultat)