el problema es la fecha ya que al rescatar la fecha de la bede te la debuelve asi mm/dd/yyyy hh:mm:ss
mira yo no he trabajado con fechas largas como la que tienes tu solo con fecha corta dd/mm/yyyy lo que hago yo es lo siguiente rescato el valor de la base de datos luego que lo rescato lo transformo con la siguiente funcion
Cita: Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(dia+ 100),2)& "/" & Right(Cstr(mes + 100),2) & "/" & ano
Else
FechaGenerica = Null
End If
End Function
y se llama asi : FechaGenerica(aca pones la variable a transformar)
espero haber ayudado