Salut à tous

Voila mon soucis.

Par VB6, je souhaite créer sur ACCESS un champs d'index avec un ordre par trie croissant ou décroissant.
Après une petite recherche, j'ai pu trouver la propriété "ATTRIBUTES" qui utilisé avec un FIELD, permet de sélectionner le type de tri descendant avec "dbDescending".

Le problème est que mon programme me lance une erreur 3219 Operation non valide.
Comment puis je faire pour parvenir à faire fonctionner cette propriété qui doit fonctionner en lecture mais aussi en ecriture sous certaines condition qui me sont incompréhensibles.

    
Dim DataFiche                       As Database
Dim TableAgent                      As TableDef
Dim RecordAgent                     As Recordset
Dim IndexTri                        As Index
Dim NumFiche                        As Integer
'On ouvre la base de données XXX.MDB
        Set DataFiche = OpenDatabase(NomFichierFiche)
    'On ouvre la table XAgnt
        Set TableAgent = DataFiche.TableDefs("XAgnt")
    'On supprime les index existant
        While TableAgent.Indexes.Count <> 0
            Set IndexTri = TableAgent.Indexes(0)
            TableAgent.Indexes.Delete IndexTri.Name
            TableAgent.Indexes.Refresh
        Wend
    'On crée un nouvel index de trie en fonction de la variable envoyée
        Set IndexTri = TableAgent.CreateIndex("TriFiche")
        Select Case NomChampsTri
            Case "X1"
                IndexTri.Fields.Append IndexTri.CreateField("A")
            Case "CodeControle"
                IndexTri.Fields.Append IndexTri.CreateField("B")
                IndexTri.Fields.Append IndexTri.CreateField("C")
            Case "X2"
                IndexTri.Fields.Append IndexTri.CreateField("D")
                IndexTri.Fields.Append IndexTri.CreateField("E")
                IndexTri.Fields.Append IndexTri.CreateField("F")
                IndexTri.Fields.Append IndexTri.CreateField("G")
            Case "X3"
                IndexTri.Fields.Append IndexTri.CreateField("H1")
                IndexTri.Fields.Append IndexTri.CreateField("H2")
                IndexTri.Fields.Append IndexTri.CreateField("H3")
            Case Else
                IndexTri.Fields.Append IndexTri.CreateField(NomChampsTri)
                IndexTri.Fields.Append IndexTri.CreateField("A")
        End Select
        TableAgent.Indexes.Append IndexTri
    'On compare avec le trie précédent
        If IndexTri.Fields(0).Name = strAncienTri Then
         'tri uniquement sur le premier champs
            IndexTri.Fields(0).Attributes = dbDescending 
        Else
            IndexTri.Fields(0).Attributes = 0
        End If

Merci pour votre aide

Il n'y a donc personne qui puisse me donner une réponse ?

C'est pas grave, je me suis débrouillé avec une requete.