Chargement dynamique des group et item dans UltraExplorerBar

bonjour,
je viens de commencer à utiliser les contrôle infragistic que j'ai jugé mieux pour le design de mes interfaces,
je vais crée un menu avec les fonctionnalités qui proviennent de la base de données mais à chaque chargement j'ai le message d'erreur : "Key already exists
Nom du paramètre : Key"

voici les codes que j'utilise, si possible corrigez pour moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Agroup As New UltraExplorerBarGroup
        Dim AnItem As New UltraExplorerBarItem
 
        Call connection()
        cmd.CommandText = "select * from UFonct"
        dr = cmd.ExecuteReader
        Dim i As Integer
        While dr.Read
            If dr("IdFonct") <> dr("Idgroup") Then
                Agroup.Text = dr("LibFonct").ToString
                Agroup.Key = dr("KeyFonct").ToString
                FrmAcceuil.UltraExplorerBar1.Groups.Add(Agroup)
                AnItem.Key = dr("Keyfonct").ToString
                AnItem.Text = dr("LibFonct").ToString
                Agroup.Items.Add(AnItem.Key.ToString, AnItem.Text.ToString)
            End If
        End While

merci de votre aide...