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á Brendo!
Por gentileza, nos envie seu banco de dados (somente as partes envolvidas) para análise e ajustes.

Obrigado.

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!

Voce pode criar um novo sistema e importar somente o form e a(s) tabelas e etc.

Olá Alexandre!
Consegui reproduzir no arquivo anexo.

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

Olá Brendo,
Não veio o anexo.

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

Ops...agora veio...rss
Vou verificar e te retorno.
Abraço

Brendo,

Não fiz alteração no "frmTeste" para preservar o código que você criou.
Fiz uma cópia e salvei como "frmTesteNew" e fiz as devidas alterações.

Não há mais erros !

Obs.: verifique o código comentado


Espero ter ajudado.

Boa sorte

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!