Fonction qui fait la somme du Colonne dans un Lest Box

Bonjour,
je viens de réaliser un formulaire qui contiens un lest box de 5 colonne en code VBA j'ai criée une fonction pour faire la somme pour deux colonne dernier le 3 et le 4 on estime colonne id et 0 mai ne somme que la colonne id
mémé que les numérotation du colonne et différente
j avais déclare db as DAO.Database

'Fonction qui faire la somme d'un colonne dans une listBox
Function SommeColList(lst As ListBox, NomCol As Integer) As Single
Dim Som As Single
Som = 0
For i = 0 To lst.ListCount - 1
Som = Som + lst.Column(NumCol, i)
Next i
SommeColList = Som
End Function
quand on Click sur bouton enregistrée ( A zone texte d’affichage résultat de colonne 3) et(B zone texte d’affichage résultat de colonne 4)
me.A=SommeColList(listArticle,3)
même résultat que
me.B=SommeColList(listArticle,4)
elle somme id tel que txtA=txtB
j'en sais pas ou est le probleme
merci de m'aide