[Resolvido]Combo box filtrar dados de outra combo box.

Boa tarde pessoal, pode parecer um problema simples para quem entende e eu relmente vi varios topicos semelhantes porém não consegui aplicar no meu. É o seguinte, eu gostaria que ao selecionar o fórum em uma combo box ele me exiba somente as varas disponíveis no respectivo fórum e jogando a localização para o respectivo campo no formulário para eu poder gerar cartas para os clientes. Vou anexar meu BD se alguém puder me dar uma luz eu agradeço desde já.
Existem poucos foruns cadastrados pois ainda estou montando. No caso só tem o JEF e o Ruy Barbosa com varas e localizações cadastradas. Vide sistema.

Olá, vamos começar tentando aplicar o que eu descrevi nesse Topico:
https://www.maximoaccess.com/t27202-resolvidoerro-4-caixas-de-listagem-sincronizadas

Caso não consiga avisa que damos sequencia!!!

Muito obrigado pela resposta e desculpe a demora.
Eu tentei aplicar aqueles codigos nos meus anteriores mas ele ta dando erro de tipo de dados incompatível na expressão de critério.
Meu codigo ficou da seguinte forma.

Me.txtvara.RowSource = "SELECT Vara, CdForum, Localizacao FROM Varas " & _
"WHERE CdForum = " & Me.txtforum.Column(0) & " ORDER BY Localizacao"

Muito obrigado pela atenção.

Esse erro ocorre quando esta mandado uma valor para comparação diferente do tipo de dados que contem no Campo da tabela. Exe:
Está informando que o valor é do tipo Numero, mas na tabela o campo é tipo Texto. ou vice versa!

Verifique se o campo da tabela CdForum realmente é NUMERO e se no Me.txtforum.Column(0) tem realmente o Código que quer informar... Verique a coluna correta, a coluna ZERO.

Poxa cara, muito obrigado pela aula, graças a você deu certo, só tenho mais uma duvida, as varas estão fora de ordem estão bem aleatório eu tentei colocar o ASC no final do order by mas não deu certo, tem alguma diferença?

Edit: consegui, eu estava colocando order by localização mas tem que ser vara

Edit 2: Como faço pra sempre que escolher no o campo vara ele atualize o campo localização

Consegui fazer tudo, vou postar meu código caso possa ajudar alguém futuramente.

Private Sub txtforum_AfterUpdate()
Me.Requery
Me.txtEstado.Value = Me.txtforum.Column(5)
Me.txtEndereco.Value = Me.txtforum.Column(3)
Me.txtCidade.Value = Me.txtforum.Column(4)
Me.txtCep.Value = Me.txtforum.Column(6)
Me.txtvara.RowSource = "SELECT Varas.CdForum, Varas.Vara, Varas.Localizacao FROM Varas " & _
"WHERE CdForum = " & Me.txtforum.Column(0) & " ORDER BY Vara ASC;"
Me.txtvara.Value = ""

Private Sub txtvara_AfterUpdate()
Me.txtlocalizacao.Value = Me.txtvara.Column(2)
End Sub


Muito obrigado pela atenção.