Como adicionar valores a uma Combobox preenchida por consulta

Pessoal não encontrei nada parecido na busca...

Tenho uma tabela com a relação de contas bancárias, estas contas precisam aparecer em uma combobox, que será usada para refinar uma pesquisa (pesquisa dos lançamentos por conta). Porém quero que a combo mostre a opção "Todas as Contas", para quando quiser ver os lançamentos de todas as contas.

Como não existe o registro "Todas as Contas" na tabela, quero inserir esta entrada na combo por vba, além dos valores inseridos pela consulta.

A propriedade Tipo de Origem da Linha da Combo não deixa usar o AddItem quando está configurada para Tabela/Consulta.

Uma alternativa foi inserir os valores da tabela por vba, via AddItem. Porém. como a combo tem duas colunas, não estou conseguindo trabalhar com a propriedade .List ou .Column, para inserir os valores da segunda coluna.

Do While Not rs.EOF
   Me.Combo_CRConta.AddItem rs.Fields("Código)
   Me.Combo_CRConta.Column(i,1) = rs.Fields("Nome") ' Aqui dá erro!!!!!!!!!!!
   i = i + 1
   rs.MoveNext
Loop

Agradeço a Atenção

Boa noite, e bem-vindo ao fórum
Disponibilize o SQL da origem da caixa de combinação

A principio eu usei

SELECT TabelaContas.[Código], TabelaContas.[Nome]
FROM TabelaContas;

Mas não consegui adicionar itens pelo VBA, pois a propriedade Tipo de Origem da Linha fica como Consulta/Tabela, nesse caso o AddItem Não Funciona.

Então deixei a propriedade como Lista de Valores e Adicioneis os Itens por VBA

Do While Not rs.EOF
Me.Combo_CRConta.AddItem rs.Fields("Código)
Me.Combo_CRConta.Column(i,1) = rs.Fields("Nome") ' Aqui dá erro!!!!!!!!!!!
i = i + 1
rs.MoveNext
Loop

Mas nesse caso não consigo preencher a segunda coluna com .Column

Boa tarde,
Coloque
SELECT Código, Nome FROM TabelaContas UNION SELECT 'Todas as Contas' FROM TabelaContas WHERE Código=X;
substitua o X por um código existente na tabela

Respeite a normalização de nomes (sem acentuação, sem espaços) e não utilize nomes reservados (Nome, Data, Dia, Hora, etc) para evitar problemas dificeis de detectar