Eu estou tentando converter um campo de texto em uma data usando CDate () em um conjunto de registros, mas continuo recebendo um erro de incompatibilidade de tipo. O formato do texto de entrada é MMDDAAAA. O CDate não reconhece este formato? Eu preciso de uma função separada? Alguma ideia?

<code>Text Date  -> Converted Date
---------     --------------
04122012   -> 04/12/2012


Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("tbl_dates", Type:=dbOpenDynaset)

Do Until rst.EOF
rst.Edit
rst![Converted Date]=CDate(rst![Text Date])
rst.Update
rst.MoveNext

Loop

Set rst = Nothing
Set db = Nothing
</code>