Funçao especifica

Preciso concluir uma função em VBA-Access, que está com erro de lógica. Qualquer alteração pode ser feita, desde que o resultado seja atingido. Tenho que enviar 4 tabelas e as descrições abaixo acredito que sejam suficientes:

1 – Preciso filtrar os registros da Tblbacktestgeral, em que o valor do campo ativo seja igual ao campo ativo da tblotimizadores
2 – em seguida preciso adicionar registros na tblindicadorativo com registros que obedeçam as seguintes regras:
a-    obedecendo a chave primária da tabela, que é composta de data, código do ativo e código de decisão
b-    para cada código de ativo, em cada data pré-existente nos registros filtrados no item 1, incluir uma tupla, composta do resultado de 2 dos 7 itens relacionados na tblindicador.
Os resultados já existentes são 0 ou 1.
C-    Baseado na tabela verdade, se os resultados dos 2 itens da tupla forem 1, o resultado deverá ser 1, para os demais será zero. Observar que não interessa o resultado invertido, pois a ordem dos 2 fatores tanto faz.
3 – A tblIndicadorAtivo apresenta inicialmente 427 registros, que são os que servem para teste. Esses 427 registros são os resultados das tuplas do tipo a1 x a1, a2 x a2, a3 x a3, a4 x a4, a5 x a5, a6 x a6, a7 x a7. Essas 7 tuplas referem-se aos 7 registros da tblIndicador, adicionados para cada data em que o ativo aparece.


4 – É necessário adicionar os resultados das demais tuplas, ou seja: a1 x a2, a1 x a3, a1 x a4, a1 x a5, a1 x a6, a1 x a7, a2 x a3, a2 x a4, .... , Até a6 x a7. Note que as tuplas não precisam ser invertidas nem iguais, pois os iguais já existem na tblIndicado-rAtivo e as invertidas são iguais às suas inversões, não sendo necessárias.

5 – Finalmente a tblIndicadorAtivo deverá ter adicionado uma grande quantidade de registros, pois para cada ativo, numa certa data, deverá ter tantos registros quanto o número de tuplas possíveis.

6 – A função PreencheIndicadorAtivo() apresenta o código que tem erro de lógica e precisa ser alterado.