[Resolvido]Formato de data americano não muda

Boa tarde pessoal.

Utilizo a função format para definir a propriedade DefaultValue, porém ela não surte o efeito esperado: Aparece 06/08/2017 ao invés de 08/06/2017.

Veja o arquivo.

Isso é porque você não fez a parte mais simples, que é o contrario do que fez;

Código:

Private Sub Form_Load()
    Me.txtData.DefaultValue = "#" & Format(Day(Date) & "/" & Month(Date) & "/" & Year(Date), "mm/dd/yyyy") & "#"
    Me.lbData.Caption = Date
End Sub

Caracas!!! Que doido!!!

Então devo colocar no padrão americano nesse caso.

Valeu JPaulo!!!

Valew.