Click sur DataCombo

Bonjour,
je vienne de créer une application qui se connecte à une base Access avec Adodc,
les données sont récupéré dans un Datacomb, et aussi dans des zone de texte,
et les données de la base sont parcoures aussi grâce a des bouton suivant précédent ect...
le prob consiste a ce déplacer vers un enregistrement précis dans la base quand je le choisir dans le ComboData , cad une façon simplifier d aller vers un enregistrement directement,
mais le problème c'est quand je clique sur une valeur dans le DataCombo les autres valeur ne se rafraichir pas , alors comment faire stp
j ai essayer de cette façon même que sa marche pas (le prob est ds la partie de code rouge )

Private Sub DataCombo1_Click(Area As Integer)
Dim strCdArt As String
On Error GoTo GoNextError

  If Not Adodc1.Recordset.EOF Then
    'Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.Find "AR_Ref = '" & strCdArt & "' "
  End If
 
  If Adodc1.Recordset.EOF And Adodc1.Recordset.RecordCount > 0 Then
    Beep
     'moved off the end so go back
    Adodc1.Recordset.MoveFirst
  End If
  'show the current record
  mbDataChanged = False

  Exit Sub
GoNextError:
  MsgBox Err.Description


 
End Sub


Merci pour votre aide d'avance , c'est urgent svp

cool

j'essayer encore avec ce code dans la focntion click ou change mais tjrs des erreur, je suis bloqué , les données ne s'actualise pas

Private Sub DataCombo1_Change()
Adodc1.Recordset.MoveFirst
Text1 = Adodc1.Recordset!AR_DESIGN
'Text2 = Adodc1.Recordset!AC_PrixVen
Text3 = Adodc1.Recordset!AR_PRIXACH
'Text4 = Adodc1.Recordset!CT_Num
End Sub

cool