Comparar campos de uma tabela

amigo,s bom dia!

Estou com um sistema de emissão de fichas mas estou com um problema de ativar itens...

(banco de dados: access)

Minha tabela:

Código | Produto | Ativo

1              Refri         Sim

2              Breja        Sim

3              Água       Não

4              Suco        Sim

5             Pastel      Não

** O que preciso:

Uma função que lê linha por linha e faça assim (no total são 36 códigos diferentes hoje utilizado):

	Se o codigo 1 estiver SIM no campo ativo então botão Ficha1 do form1 será enable := true  caso estiver Não então botão Ficha1 será enable:= false;

	Se o codigo 2 estiver SIM no campo ativo então botão Ficha2 do form1 será enable := true  caso estiver Não então botão Ficha2 será enable:= false;

	Se o codigo 3 estiver SIM no campo ativo então botão Ficha3 do form1 será enable := true  caso estiver Não então botão Ficha3 será enable:= false;

	 

	e assim sucessivamente...

	 

	 

	Alguém sabe me ajudar como fazer essa função?

	 

	Obrigado.