Rs est une Source de données
Sql est une Chaine

Sql = "SELECT Rub1 AS RubAAfficher, Rub2 AS RubCle FROM Fichier"

SI PAS HExecuteRequeteSQL(Rs,HRequetedefaut,Sql) Alors
 Erreur(HErreurInfo())
 Retour
FIN
FichierVersListeMemoire(<NomListe>,<Fichier>,RubAAfficher,RubAAfficher,RubCle)