Una posibilidad quizás sea convertir la fecha a "ticks" en una variable tipo Long y luego almacenarla en la BD en un campo tipo Double.
B4X:
Dim FechaTicks As Long
Dim FechaActualTicks As Long
FechaTicks = DateTime.DateParse("02/12/2018") 'Cualquier Fecha a Ticks
FechaActualTicks = DateTime.Now 'Fecha actual a Ticks
A la hora de recuperar la fecha solo has de hacer el paso inverso, convertir de ticks a Fecha