[Resolvido]Insert campo tipo data em um banco mysql

Olá amigos bom dia,

Estou executando um insert em bd mysql através de um formulário ms access utilizando o código abaixo, a execução funciona, porém o campo tipo data (dt_nascimeto), aprece nulo quando vou verificar na base, gostaria de saber como fazer a formatação do campo para que seja reconhecido no mysql.

Dim ConnectionString As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset


ConnectionString = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=coosaude.com;PORT=3306;" _
& ";DATABASE=coosaude_db;UID=coosaude_ademir;PASSWORD=u!wUaevqCTI[;OPTION=3;"

conn.Open ConnectionString

conn.CursorLocation = adUseClient

conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "','" & Forms!FuncionarioInclusao.CNascimento & "');"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer

conn.Close

DoCmd.Hourglass False

Grato pela atenção!!!

Teste utilizando o CDate;

CDate(Forms!FuncionarioInclusao.CNascimento)

Olá JP, boa noite

tentei implementar a função CDate no código das seguintes maneiras:

conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "', 'CDate(Forms!FuncionarioInclusao.CNascimento)');"


conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "', CDate(Forms!FuncionarioInclusao.CNascimento));"


A primeira ocorreu o insert no banco, porém o campo continuou nulo, a segunda deu erro conforme figura em anexo.

Aguardo retorno,

Grato pela atenção!!!!

Olá JPaulo,

Fiz umas correções aqui no meu código e deu certo.

Ficou dessa maneira:

conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "','" & Format(CNascimento, "yyyy/mm/dd") & "');"

Grato pela ajuda!!!