Sql est une chaine
Rs est une source de donnee
nCount est un entier

Sql = "
select count(*) As NB from [nom du fichier]"
Si Pas HExecuteRequeteSql(Rs, HrequeteDefaut, Sql) Alors
 Erreur(HErreurInfo())
 Retour
Fin

HLitPremier(Rs)
nCount = HNbEnr(Rs)