Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

Olá amigos,
Estou tendo problemas em popular um combo via VBA usando método RowSource.

Tenho duas combos A e B:
Na combo A, escolho o DOCUMENTO
Na combo B, escolho o TIPO DE DOCUMENTO

Na combo A existem uns 5 documentos:
Do 1º ao 4º vai popular a combo B com números
O 5º vai popular a combo B com texto

Ocorrência:
Se ao abrir o Form eu escolher na combo A, o 5º Documento, eu não terei problema algum com a combo B, mas se eu começar escolhendo na combo A, do 1º ao 4º Documento, eu vou ter problemas na combo B ao mudar para o 5º Documento na combo A.

Problema:
Se eu começar escolhendo na combo A, do 1º ao 4º Documento, a combo B vai ser populada sempre com NÚMEROS e ao escolher na combo A, o 5º Documento, a combo B até popula com os três 3 itens TEXTO, mas ao escolher, na combo B, um dos 3 itens, o ACCESS informa: "O valor que você inseriu não é válido para este campo. Por exemplo, talvez você tenha inserido texto em um campo numérico..."

EM RESUMO:
Se eu começar com TEXTO não vou ter problemas, mas se eu começar com NÚMERO, sim. E isso se eu usar a como B.
Se eu alterar a combo A e não usar a como B, não dá "pau".

Alguém já viu isso?

Obrigado, Luz e Paz!

Olá Alexandre,
O banco é quase todo "independente" (desacoplado)
Tudo depende de tudo...
Tô tentando ver se consigo desmembrar um pouco para postar aqui, desde que postei esta mensagem.
Vai demorar! Enquanto isso, tô montando outro para somente expor o problema que apresentei... mas agradeço pelo interesse.

Luz e Paz!

Olá Alexandre!
Consegui reproduzir no arquivo anexo.

vlw....... Luz e Paz!

Dá um F5 aí... rs
Avisa se apareceu, por favor...

Olá Alexandre, obrigado por me ajudar!

Resumindo:
1) Devo inserir as informações dos cinco documentos como "Value List" (Lista de valores);
2) O uso do "Me.cboRel.RowSource = Select..." não é viável;
3) Tenho que usar "CurrentDb.OpenRecordset"

O documento Contrato terá muitos números (na casa dos milhares). Não terá problema trazer tudo como "Lista de valores"?

-----

Consegui alterar os códigos antigos usando sua sugestão, mas não estou conseguindo no 4º Documento (Recibo de pagamento).
Cada documento é uma tabela específica que tem como relacionamento o número do contrato (1º Documento), mas esse 4º Documento (Recibo de pagamento) tem duas colunas de informações.

Em seu código VBA você usou ".ColumnCount = 1", mas como você faria para o 4º Documento que usa 2 column?

Seria algo assim:
msql = "SELECT id as RESULTA, coisa as RESULTB FROM..."
...
.ColumnCount = 2
...
.AddItem "" & rs("RESULTA").Value & ";" & rs("RESULTB").Value & ""

Acertei? rs


Luz e Paz!