Public ws As Workspace Public rs As Recordset Public db As Database Private Sub Form_Load() Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("test.mdb", False, True, "MS Access") 'C'est le True de cette ligne qui permet de lire une DB en LS Set rs = db.OpenRecordset("Select * from Rendezvous where info like 'info2'", dbOpenDynaset) Do Until rs.EOF Print rs.Fields("note") rs.MoveNext Loop MsgBox "Fini" End Sub