[Resolvido]Up Registro em duas tabelas e um formulário

Boa tarde amigos! Gostaria de mais uma ajuda de vocês.

Gostaria de inserir registro (nome e convênio) na tblControle de honorários médicos através de um botão "executar" em um formulário "Prontuário" cuja fonte de registro é outra tabela chamada "Prontuário"
Desculpa os erros nos nomes dos objetos, fiz esse banco há uns 10 anos e agora estou reformulando.

Private Sub Executar_Click()
CurrentDb.Execute "INSERT INTO tblControle de honorários médicos (Nome, Convênio) VALUES ('" & txtNome.Value & "', '" & txtConvênio & "')"
MsgBox ("Executada."), vbInformation, "Dados"
End Sub

Não esta dando certo, pede para depurar. Algum erro no código?
Realizei o código com ajuda do video do Giberlânio Rocha no you tube
Obrigado!!

Olá Heldenrson,

Teste assim:

Código:

CurrentDb.Execute "INSERT INTO [tblControle de honorários médicos] (Nome, Convênio) VALUES ('" & txtNome.Value & "', '" & txtConvênio & "')"

Abraço

Show resolveu muitíssimo obrigado!!!!!

Olá Heldenrson,

Obrigado pelo retorno, o fórum agradece.

Abraço

Boa tarde, testando o código ele registra o nome, mas não registra o convênio. Alguma idéia?
Valeu!!

opa! era o nome do campo no meu formulario prontuário que estava errado (txtConvênio)
Agora deu, sucesso!
Obrigado

Seria possivel incerir outro item "Código do convênio"

já tentei horas seguindo a sequencia no código e não consigo
Valeu

Olá, e seguir a mesma lógica.

Pois como "Código do convênio" tem espaços deve colocar entre parênteses retos, assim:
[Código do convênio]

Outra coisa apesar de ser possível usar acentuação no nome dos campos não é recomendado.

Abraço

Boa noite
Retirei os espaços e coloquei o "txt" no nome do campo "txtCódigo_do_convênio" no formulário.
Deu tudo certo  
Deu trabalho de uns tres ou mais dias até vir a sua ajuda.
Muitissimo obrigado ahteixeira!
o código ficou assim:

Código:

Private Sub Executar_Click()
CurrentDb.Execute "INSERT INTO [tblControle de honorários médicos] (Nome, Convênio, Código_do_convênio) VALUES ('" & txtNome.Value & "', '" & txtConvênio & "', '" & txtCódigo_do_convênio & "')"
MsgBox ("Executada."), vbInformation, "Dados"
End Sub

Olá Heldenrson,

Obrigado pelo retorno, o fórum agradece.

Abraço