Le portail francophone de la géomatique

Bonjour à tous !

Je développe en VB une procédure de géocodage et j'ai rencontré quelques problèmes avec mes indexes :

Je créé mes indexes de la façon suivante :

If Not theGeocoder.IndexStatus = MapObjects2.IndexStatusConstants.mgIndexExists Then
            'il n'existe pas
            theGeocoder.EraseIndices
             DoEvents
            ' on spécifie les champs à indexer (champs sur lesquels on fait un match)
            If Not theGeocoder.AddIndex("ADR4_SN", "", mgIndexTypeNormal) Then
                'code erreur
                Init = -7
                Exit Function
            End If
             DoEvents
            If Not theGeocoder.AddIndex("L_ORDER08", "R_ORDER08", mgIndexTypeNormal) Then
            ''     code erreur
                 Init = -8
                 Exit Function
            End If
             DoEvents
            If Not theGeocoder.AddIndex("ADDR_ST", "", mgIndexTypeNormal) Then
            '    'code erreur
                Init = -9
                Exit Function
            End If
             DoEvents
           
            If Not theGeocoder.BuildIndices(True) Then
                'cas ou nous n'avons pas reussi à créer les index
                'par ex, si la couche est ouverte par arcview ou autre SIG
               'code erreur
               Init = -10
                Exit Function
            End If
             DoEvents
      End If

Or, mes indexes sont créés, mais la procédure ne semble pas s'en servir lors des recherches ....  A tout moment de l'exécution je peux les afficher, mon .gcd est créé, mais c'est comme s'ils n'existaient pas, la procédure ne trouve aucun résultat là où elle devrait ! J'avais déjà eu ce problème et il s'était réglé très mystèrieusement, aujourd'hui il revient et je ne sais pas pourquoi !!

Si vous avez une idée !
Merci ^^