Dim db As Database Dim rs As Recordset Dim requete As String Dim maVariable As String Set db = CurrentDb 'ICI tu écris ta requete requete = "SELECT * FROM table" Set rs = db.OpenRecordset(requete,dbOpenDynaset) 'maintenant tu as le jeu d'enregistrements correspondant à ta requete dans la variable rs. 'pour parcourir ce recordset : rs.MoveFirst While Not rs.EOF MsgBox rs.Fields("nom").Value rs.MoveNext Wend 'pour avoir le deuxieme enregistrement : rs.MoveFirst rs.Next maVariable = rs.Fields("nom").Value 'à la fin il faut vider le recordset Set rs=nothing