Dim Base as DataBase Dim RS as Recordset Set Base = OpenDataBase ("C:\Bdd1.mdb") Set RS = Base.OpenRecordset ("SELECT * FROM Clients;") ListView1.Listitems.clear RS.MoveFirst While Not RS.EOF With ListView1.Listitems.Add (text:=RS!NClient) .SubItems(1) = RS!Nom .SubItems(2) = RS!Adresse .SubItems(3) = RS!Cp .SubItems(4) = RS!Ville .SubItems(5) = RS!Fax .SubItems(6) = RS!Tel End With RS.MoveNext Wend