[Resolvido] Caixa de listagem - Mostrar registro atual

Olá, sou iniciante no ACESS e este é meu primeiro post neste fórum.

Fiz um formulário com uma caixa de listagem para selecionar os registros, e ao mesmo tempo, coloquei para aparecer o nome do registro atual nesta caixa, porém ao fazer isto, está sendo alterado valores da tabela relacionada no formulário.

dados da caixa de listagem:

Fonte do controle: Empresa
Origen da linha: SELECT [Simples Nacional Crescente].Empresa FROM [Simples Nacional Crescente] ORDER BY [Simples Nacional Crescente].Empresa;
Tipo de origem da linha: Tabela/Consulta

Ao selecionar uma empresa nesta caixa de listagem, o respectivo registro é seleciona normalmente, porém ao fazer isto o nome da empresa do registro atual é substituido pelo nome da empresa selecionada na caixa de listagem.

Não sei se consegui explicar corretamente o que está acondecendo, portando, seque em anexo o BD somente com dados para exemplo, ao abrir o formulário, quando seleciono na caixa de listagem a empresa B, a empresa A fica com o nome da empresa B. Se eu tirar o atributo "Font de controle" da caixa de listagem, resolve o problema, mas eu quero além de ter a caixa de listagem para selecionar os registros, também quero que a caixa de listagem moste o registro atual, tem outra alternativa?

Link do BD: http://goo.gl/B41JMu
Clicar na seta para baixo no final da descrição do arquivo e selecionar "Fazer download".
Ou vá em "Arquivo" -> "Fazer download".
Ou ainda pela tecla de atalho CTRL + S.

Agradeço deste já pelo fórum e pelos usuários que ajudam a solucionar nossas dúvidas e problemas.

Ola seja bem vindo ao forum.

O link está sem permissões para download.

Olá JPaulo.

Permissões alteradas, obrigado.

Atualizando...

Seria assim amigo.

https://dl.dropboxusercontent.com/u/90217826/erro%20caixa%20de%20listagem%281%29.zip

Obrigado por responder Kaynan, porém não era isto que eu queria, como disse anteriormente, quando é retirado o atributo "fonte do registro" como você vez ele não altera os dados da tabela, mas também não fica como eu queria, que seria mostrando o registro atual.

Porém mesmo não sabendo muito sobre VBA, consegui fazer uma maracutaia e funcionou:

Código:

Private Sub proximo_Click()
    DoCmd.GoToRecord , , acNext
    Me.lista = Me.Empresa
    Me.Refresh
End Sub

Assim quando clicado no botão "Próximo", além de ir para o próximo registro, também é atualizado o valor da caixa de listagem "lista" para mostrar o nome da empresa do registro atual, também coloquei mensagens para tratamento de erro ao chegar no limite de dados do registro.

Grato.

Não esquece de por resolvido.
Abçs.