RE:Recomendacion para problema de fechas
Personalmente los campos fecha los almaceno con formato de fecha que para algo se inventó. Lo que puedes hacer es tomar el formato de fecha definido en la configuración regional y trabajas con ese directamente.
Public Const LOCALE_SSHORTDATE = &H1F
Public Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Public Function GetLocaleDateFormat() As String
Dim strBuffer As String
strBuffer = String(255, " ")
GetLocaleInfo GetUserDefaultLCID, LOCALE_SSHORTDATE, strBuffer, 255
GetLocaleDateFormat = Trim(Replace(strBuffer, Chr(0), ""))
End Function