Ah! Só lembrando "2 Pac" a função Cdate pega as configurações do painel de controle caso não esteja no dd/mm/aaaa ela não ficara.
Fiz uma função que independente de qual formato está a data a função passar para dd/mm/aaaa
Public Function CorrigeData(DataFormatada)
Dim FormataData As String
Dim Data As String
Dim Mes As String
Dim Ano As String
Dim Final As String
FormataData = Format(CDate(DataFormatada), "dd/mm/yyyy")
Data = Mid(FormataData, 1, 2)
Mes = Mid(FormataData, 4, 2)
Ano = Mid(FormataData, 7, 4)
Final = Data & "/" & Mes & "/" & Ano
DataFormatada = Final
End Function
