"Erro '3421'" "Erro de conversão de tipo de dados." Ajuda

Alguém, por favor, socorro!

Já busquei ajuda em todos os lugares possíveis no Google, no help da Microsoft e até aqui (e olha que aqui encontro tudo que preciso hehe) e não encontro a solução pra esse "problema"

Tive a ideia de criar a função "Salvar" para usar em meus formulários com o fim de economizar código.

Todos os campos no formulário estão com os mesmos nomes dos campos da tabela.

Pelo que vi tem a ver com o "DAO"

Mas já exemplos parecido em que o erro não acontece.

Deem uma olha no código e respondam se algo estiver errado.

Desde já agradeço.

Em anexo a descrição do erro seguido do código da função.

Amigo, esse erro geralmente e porque esta tentando gravar um valor diferente do tipo aceitavel do campo da tabela, exe/; Gravar Texto em um campo do tipo Numero.

Sugestão:

Coloque uma Msgbox antes da linha destacada para ver qual valor esta enviando para rs.(Controle.Name)

msgbox Nz(Formaberto.Controls(......

Assim, emitira uma mensagem com o Valor que esta atribuindo e sabera se e o que pretende ou nao...

Obrigado amigo

Quando chega no campo com uma data dá esse erro

Obs. o campo com a data no banco não é um campo requerido

Certo, e como essa data esta sendo passada para o Campo? faça o que recomendei, e veja como ela esta sendo enviada... Veja se nao tem algum caracter especial, algo diferente de uma data...

Posta aqui um exemplo do valor...

Amigo, ao tentar salvar com uma data válida inserida no controle do formulário vai de boa, mas quando tento salvar com o controle vazio o erro persiste

Fez o que recomendado na mensagem N02 e 4?

No msgbox não apareceu nada amigo, mesmo usando o Nz(Dado no controle, "Valor vazio")

Mas eu consegui com o "On Error Resume Next"

Obrigado pela boa vontade em ajudar

Os leigos (como eu) são gratos...