'ChConnect "Provider=MSDASQL.1;Password=mot de passe en clair;Persist Security Info=True;User ID=BASEPARC;Data Source=BASEPARC;Mode=ReadWrite"'Set cnx New ADODB.Connection cnx.ConnectionString = ChConnect cnx.Open 'Exemple d'une requete: sSqlsite = "SELECT * FROM SITE ORDER BY SITE.NOMSIT" Set rsSITE = New ADODB.Recordset rsSITE.Open sSqlsite, cnx, adOpenForwardOnly, adLockReadOnly lstwSite.ListItems.Clear Do While Not rsSITE.EOF Set lstItem = lstwSite.ListItems.Add(, "P" & rsSITE("SITE"), rsSITE("NOMSIT")) rsSITE.MoveNext Loop If rsSITE.State = 1 Then rsSITE.Close