altere esta linha:
dtTmp = Format(Me.TextBox6.Value, "mm/dd/yyyy")

dtTmp = Format(Me.TextBox6.Value, "dd/mm/yyyy")

Não dá, mesmo alterando.

kurkas,

Pra mim tá rodando redondinho.

kurkas,

Veja se é assim.

Você pode usar o código abaixo no evento keypress, e então a formatação ocorrerá enquanto o usuário digitar os números.

If Len(TextBox6) = 2 Or Len(TextBox6) = 5 Then
Me.TextBox6.Text = Me.TextBox6.Text & "/"
End If

At

Wagner,
Não estava a rodar e depois verifiquei que :
dtTmp = Format(Me.TextBox6.Value, "mm/dd/yyyy") teria de passar para
dtTmp = Format(Me.TextBox6.Value, "dd/mm/yyyy").

Agora só me falta uma coisa: este Textbox6 requer seja introduzida data, senão dá erro.
Tenho que arranjar solução!
Obrigado

Wagner,
Não estava a rodar e depois verifiquei que :
dtTmp = Format(Me.TextBox6.Value, "mm/dd/yyyy") teria de passar para
dtTmp = Format(Me.TextBox6.Value, "dd/mm/yyyy").

Agora só me falta uma coisa: este Textbox6 requer seja introduzida data, senão dá erro.
Tenho que arranjar solução!
Obrigado

Se estiver se referindo a obrigatoriedade do preenchimento do campo para continuar...então você pode inserir o código abaixo no botão que o usuário vai pressionar para salvar as informações;

If Me.TextBox6.Text = "" Then
MsgBox "Você precisa informar a data"
Me.TextBox6.SeftFocus
Exit Sub
End If

Se for isso, crie uma rotina de verificação de outros dados também.

At

Olá,
já está resolvido!
Muito obrigado pelas dicas!!