Ajout de texte à une listbox

Bonjour,

Je développe en ce moment un outil de recherche dans une base de données cadastrales. J'effectue une recherche de parcelle à partir du numéro de commune, section et parcelle dans une table de 167000 lignes, sur 162 champs de parcelles (rien que ça). Afin de simplifier la recherche, j'ai concaténé ces 162 champs en un seul. J'ai une requête qui m'obtient bien le résultat souhaité, résultats qui s'affichent dans des textbox créées avec l'assistant de formulaire.

Je souhaite ensuite utiliser ce résultat pour le re-séparer en numéros de parcelles distincts (tous constitués de la même façon : AA0000) à afficher dans une liste déroulante pour le rendre plus lisible. (une liste de 162 parcelles AA0000AA0000AA0000, etc. est peu lisible, et je dois être très user friendly)

J'ai tenté le code suivant (qui marche dans un exemple basique fait à côté mais pas dans mon cas) :

For i = 1 To Len(Form_Recherche_Resultat.Txtb_Num_Parc_Total.Value) Step 6
Num_Parc_Total = Mid(Form_Recherche_Resultat.Txtb_Num_Parc_Total.Value, i, 6)
Total = Num_Parc_Total & ";"
Listd_Parc_M.RowSourceType = "value list"
Listd_Parc_M.AddItem (Total)
Next i

Je dois également récupérer la ligne précédente ou suivante de la table cadastrale en fonction du type de parcelle. Là aussi, j'ai une requête qui fonctionne (test sur le type et recherche du numéro précédent ou suivant grâce à la clef primaire) mais ne parviens pas à récupérer le résultat (qui subira la même transformation que le résultat de la requête précédente).

Pouvez vous m'aider ?