Bonjour tout le monde

Alors voilà, j'ai une base de donnée access, les tables suivantes sont concernés par le problème en question:
-Banque
-Agence
Une banque a plusieurs agences.

Voilà à quoi ressemble la FORM sur laquelle je travaille :

[URL=http://www.boostupload.com/img.php?i=image_776_Banque.JPG][IMG]http://www.boostupload.com/files/image_776_Banque.JPG[/IMG][/URL]

Ce que je veux faire c'est : N'avoir dans le ComboBox de l'agence que les agences appartenant à la banque selectionnée dans le premier ComboBox.

Voici mon code :

Ce que je veux faire c'est : N'avoir dans le ComboBox de l'agence que les agences appartenant à la banque selectionnée dans le premier ComboBox.

Voici mon code :

'-----------------------Declaration Des Variables Globales--------------------------
Dim cnx As ADODB.Connection
Dim cob As ADODB.Recordset
Dim coa As ADODB.Recordset
Dim VarBanque AsInteger
 
'---------------------------------
     PrivateSub Form_Load()
'---------------------------------
 
Set cnx = New ADODB.Connection
Set cob = New ADODB.Recordset
Set coa = New ADODB.Recordset
 
'----------------------------------------------------------------------------------
VarBanque = 1
' Là j'ai initialisé la variable VarBanque pour éviter le msg d'erreur suivant :
'          "L'operation demandée necessite un enregistrement actuel"
'----------------------------------------------------------------------------------
 
cnx.Provider = "microsoft.jet.oledb.4.0"
cnx.ConnectionString = App.Path & "\GD.mdb"
cnx.Open
cob.Open"select NomBanque from Banque", cnx, adOpenDynamic, adLockOptimistic
coa.Open"select NomAgence from Agence where  NumBanque  = " & VarBanque & "", cnx, adOpenDynamic, adLockOptimistic
 
'------------------------------Combo Banque-------------------------------------------
 
cob.MoveFirst
Do
Cb.AddItem cob("NomBanque")
 
cob.MoveNext
LoopUntil cob.EOF
 
'-----------------------------Combo Agence--------------------------------------------
coa.MoveFirst
Do
Ca.AddItem coa("NomAgence")
coa.MoveNext
LoopUntil coa.EOF
EndSub
 
 
'----------------------ComboBox Banque Click----------------------------------------
 
PrivateSub Cb_Click()
 
cob.MoveFirst
DoUntil cob.EOF
     cob.MoveNext
Loop
EndSub
 
'----------------------ComboBox Agence Clik-----------------------------------------
 
PrivateSub Ca_Click()
 
coa.MoveFirst
DoUntil coa.EOF

coa.MoveNext
Loop
EndSub

Avec ce code j'ai dans le deuxième ComboBox les agences de la première Banque(Car j'ai initialisé la variable qui indique à la requête la banque 1).
Ca fait maintenant quatre jours que je galère dessus mais en vain

Je sais pas comment faire pour avoir à chaque fois que les agences appartenant à la banque selectionnée, autrement dit pour que la requete s'execute et aliment le ComboBox 'Agence' à chaque selection d'une banque.
Si quelqu'un a une idée ...
Je vous remercie d'avance pour votre collaboration

Remarque :
Je croie que quand j'ai rempli le premier combo, j'ai fais une boucle de lecture de ma table, a la fin de cette boucle, le premier recordset ne pointe plus sur aucune ligne de la table (fin de fichier atteinte)
Qu'est ce que vous en pensez ?
Merci d'avance pour votre collaboration