Calcul des Cumuls

Bonjour,

Ces codes m'ont été suggérés par Mr yg_be que je tiens à remercier.

SQLs = " select Compte, Intitule, sum(Debit) as totaldebit, sum(Credit) as totalcredit " _
    + " from TableTraitement " _
    + " where Dossier='" + CStr(VarDossier) _
    + "' group by Compte, Intitule order by Compte"
RStrait.Open SQLs, db, adOpenKeyset, adLockPessimistic
db.Execute "delete * from TableBalance where Dossier='" + CStr(VarDossier) + "' "
RSbal.Open "TableBalance", db, adOpenKeyset, adLockPessimistic
cumul = 0
Do While Not RStrait.EOF
    RSbal.AddNew
    RSbal![Societe] = VarSociete
    RSbal![dossier] = VarDossier
    RSbal![Compte] = RStrait!Compte
    RSbal![Intitule] = RStrait!Intitule
    RSbal![Debit] = RStrait!totaldebit
    RSbal![Credit] = RStrait!totalcredit
    RSbal![solde] = RStrait!totaldebit - RStrait!totalcredit
    cumul = cumul + RSbal![solde]
    RSbal![cumul] = cumul
    RSbal.Update
    RStrait.MoveNext
Loop

RStrait.Close
RSbal.Close

Ils marchent bien pour calculer les cumuls d'une table sans aucun filtre.
Ma question est comment obtenir les cumuls avec filtre. C'est à dire les cumul d'un compte bien précis, puis on passe à un autre compte jusqu'à épuisement de tous les comptes existants dans cette table.

Merci pour toute aide