[Resolvido]Atualização de ListBox em cascata

Boa noite, amigos.
Depois de muito tentar e de várias formas, venho pedir ajuda de vocês.

Tenho 3 tabelas. Elas estão relacionadas da seguinte maneira:


Tenho um formulário e dentro dele tenho um subformulário e dentro desse subformulário tenho outro sub.
Tenho uma listbox em cada um desses objetos.
Quero que ao selecionar um item numa listbox, as outras sejam atualizadas automaticamente.
A primeira listbox está funcionando perfeitamente. Fiz assim:

Private Sub Lista44_AfterUpdate()
DoCmd.SearchForRecord , "", acFirst, "[Código] = " & str(Nz(Screen.ActiveControl, 0))

Dim str2 As String
Dim codigoatual As String
codigoatual = Me.Código
str2 = "SELECT Classe, IndiceC, Código from tblClasse where IndiceC=" & codigoatual
Forms!frmACO!subfrmClasse!Lista10.RowSource = str2

End Sub

Problema é que para as outras listbox estou seguindo o mesmo raciocício e não está funcionando!

Já estou mandando o modelo do bd para facilitar o entendimento.
http://www.4shared.com/file/wDNT5crj/atualizacao_listbox.html

Desde já, muito obrigado.

Boa tarde...
Veja se é isso que precisa.
Abraços.

Silvio, agradeço a contribuição. Irei olhar a sua solução, apesar de ter solucionado o problema hoje, sempre é interessante.
Mais tarde irei postar a minha solução.

Resolvido!

Boas..

Seria interessante, a titulo de informação, postar a solução.

O fórum agradece o teu retorno !

Abraços.

Silvio

O que você fez Silvio, era quase o que eu buscava

Vendo minha solução entenderás o que eu quis dizer.
Muito obrigado pela contribuição!

Abraço.

http://www.4shared.com/file/c4AzCD2X/atualizar_listbox_em_cascata.html