Salut, voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Dim s As String
 
Do
s = Adoclient.Recordset.Fields("code_postal")
Combocp.AddItem s
Adoclient.Recordset.MoveNext
Loop While (Not Adoclient.Recordset.EOF)
 
End Sub
J'ai une base de donné access avec une table client qui contient 3 champs Nom prenom et code postal et ce que je veux faire pour l instant c'est charger au démarrage les codes postaux dans une combobox du form sous visualbasic.
pour faire la connexion avec la base de donné j'utilise un ADOdc.

le pb c'est que quand j'exécute la premier fois ça marche j'ouvre la liste il ya tous les codes postaux mais ensuite quand j'éxécute une deuxiéme fois la liste est vide et je me rend compte que tous les codes postaux se sont effacer de la table .
Cela signifie que lor de la premiére exécution les codes postaux ont été effacer.
Donc j'ai paramétré le composant ADOdc pour que la connection à la table ne se fais qu'en mode lecture et alors l'exécution s'arréte au moment ou elle arrive à la ligne

Adoclient.Recordset.MoveNext

ca qui signifie que c'est à ce moment que le code postal va etre suprimé.
on tient le coupable c'est cette instruction qui efface à chaque fois le code postal .
Comment faire pour déplacer le curseur sur l'enregistrement suivant sans effacer le code postal ?
Esc ce normal que MoveNext efface Le code postal avant de positionner le curseur sur l'enregistrement suivant?
Merci d'avance