Visual Basic - Leer informacion del tipo de Campo

Tengo esta rutina
Do While Not RS_AUTONOMO.EOF
Fila = Fila + 1
For i = 0 To 5
If RS_AUTONOMO.Fields(i).Type = adDate Then
ApExcel.Cells(Fila, i + 1).Formula = Format(RS_AUTONOMO.Fields(i), "dd/mm/yyyy")
Else
ApExcel.Cells(Fila, i + 1).Formula = RS_AUTONOMO.Fields(i)
End If
Next
RS_AUTONOMO.MoveNext
Loop

La idea, es dar formato distinto a los campos de tipo fecha. No encuentro la solución, porque asi no me dá error, pero tampoco funciona.
Desde ya agradecido por vuestra ayuda.

Consulte manual y realmente fields.type devuelve una constante enumerada, el numero 7, corresponde cuando es un campo fecha, 129 caracter, etc, etc.
O sea el código como lo he planteado esta bien. +

Lo único que modifique, es en el formato, use la funcion DateSerial, y de esta forma me presenta la fecha en forma correcta.

Gracias.