Erro com inclusão de data

[fagnerx21 0]

Eu estou tentando fazer uma inclusão em ado no vb e dá dando erro na linha onde inclui a data de nascimento e como sou leigo nisso(estou estudando e aprendendo http://forum.imasters.com.br/public/style_emoticons/default/grin.gif ) não estou conseguindo resolver o problema,então eu suplico a vocês,por favor me ajudem,ae está o código:

 

Private Sub cmdGravar_Click()

'Verifica se o campo nome está vazio

If txtNome = "" Then

'Então emite mensagem de erro ao usuário

MsgBox "Nome do cliente é obrigatório !", vbOKOnly, "Cadastrar cliente"

'Põe foco no campo nome

txtNome.SetFocus

'Abandona a rotina

Exit Sub

End If

'Inicia a inclusão do registro

rs.AddNew

rs.Fields(1) = txtNome

rs.Fields(2) = IIf(txtcpf <> Empty, txtcpf, Null)

rs.Fields(3) = IIf(mskNascimento <> Empty, mskNascimento, Null)

rs.Fields(4) = IIf(mskCep <> Empty, mskCep, Null)

rs.Fields(5) = IIf(txtEndereco <> Empty, txtEndereco, Null)

rs.Fields(6) = IIf(txtTelefone <> Empty, txtTelefone, Null)

rs.Fields(7) = IIf(txtCelular <> Empty, txtCelular, Null)

rs.Fields(8) = IIf(txtObs <> Empty, txtObs, Null)

rs.Fields(9) = IIf(txtBairro <> Empty, txtBairro, Null)

'Emite mensagem ao usuário no final da inclusão e emite o código do cliente

MsgBox "Cliente incluído com sucesso, o código é : " & rs.Fields(0), vbOKOnly, "Cadastrar cliente"

'Chama a função para limpar os campos do formulário

cmdLimpar_Click

'Call fuLimpar(Me)

'Põe foco no campo nome

txtNome.SetFocus

'Abandona a rotina

Exit Sub

End Sub

[fagnerx21 0]

Por favor,me ajudem.

[Claudio Neto 3]

Acredito que o erro estaja nessa linha:

 

rs.Fields(3) = IIf(mskNascimento <> Empty, mskNascimento, Null)

 

1° veja se na sua tabela, realmente colocou o campo como data/hora, se sim veja se isso resolve:

 

rs.Fields(3) = IIf(cdate(mskNascimento) <> Empty, mskNascimento, Null)

[fagnerx21 0]

Não adiantou,dá "error 13 type mismatch" e eu verifiquei no visual data manager e o campo está como datetime.

O que pode ser ?

[fagnerx21 0]

Será que não tem que validar a data ou formatar a data?por causa que o usuário ainda está podendo entrar com 88/95/1558 por exemplo,nisso seria bom validar e também quando o usuário está entrando com os dados está no formato 'dd/mm/aaaa' por isso seria bom formatar porque pelo que eu saiba data no sql eh no formato 'yyyy-mm-dd',se sua resposta for sim,como eu faço,pode me dizer fazendo um favor?

Valeu.

[Claudio Neto 3]

Bom, para validar você pode usar o if isdate(datapassada) then

 

Para formatar a data no formato que sugeriu, use format(datapassada,"yyyy-mm-aa")

 

Se não der avisa...