Sql est une chaine
Rs est une source de donnees

SQL = "SELECT MonFichier.MaRubrique AS Result FROM ..." 
SI PAS HexecuteRequeteSQL(Rs,HRequeteDefaut,Sql) Alors
 Erreur(He=ErreurInfo())
 Retour
FIN
HLitPremier(Rs)
<MonChampDeSaisie>=Rs.Result