Błąd niezgodności typu CDate

Usiłuję przekonwertować pole tekstowe na datę za pomocą CDate () w zestawie rekordów, ale nadal otrzymuję błąd niezgodności typu. Format tekstu wejściowego to MMDDYYYY. Czy CDate nie rozpoznaje tego formatu? Czy potrzebuję osobnej funkcji? Jakieś pomysły?

<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>

questionAnswers(2)

yourAnswerToTheQuestion