[Resolvido]Preenchimento de campos por combobox

Boa noite colegas.

Estou com dificuldade em auto preencher os campos quando da escolha da segunda combo. Somente funciona quando escolha a segunda diretamente.

primeira combo

Private Sub CboProdutor_AfterUpdate()
On Error Resume Next
  Me.cboAnimal.RowSource = "SELECT tblAnimal.idAnimal, tblAnimal.NomeAnimal FROM tblAnimal " & _
     " WHERE IdProdutor = " & Nz(Me.cboProdutor) & _
        " ORDER BY Animal"
           Me.cboAnimal.SetFocus
           Me.cboAnimal.Dropdown
Me.TxtLocalidade = cboProdutor.Column(2)
  Me.TxtSetor = cboProdutor.Column(3)
End Sub

segunda combo

Private Sub cboAnimal_AfterUpdate()
Me.TxtBrinco = cboAnimal.Column(2)
Me.txtRaça = cboAnimal.Column(3)
Me.txtPelagem = cboAnimal.Column(4)
End Sub

resolvido

estou tendo o mesmo problema