Erro ao sincronizar 2 combos

Estou sincronizando duas combos, porém está dando um erro:

Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer.

Segue o código:

Private Sub cbotipo_AfterUpdate()
Me.cbocontas.RowSource = " SELECT Nomed FROM tblcontas WHERE Tipod = " & Me.cbotipo & ""
Me.cbocontas.SetFocus
Me.cbocontas.Dropdown
End Sub

Private Sub cbotipo_Enter()
Me.cbotipo.RowSource = "SELECT Tipod, Nomed FROM tblcontas ORDER BY Nomed;"
End Sub

O que está errado?

veja a resolução deste, espero que resolva

copie e cole em seu navegador
maximoaccess.com/t31640-resolvidocomo-sincronizar-5-combos