Access - Problemas con Fecha desde Plano a Tabla

Hola a todos ... estoy intentando volcar desde un archivo txt a una tabla mediante código. Pero el unico dato que no me vuelca es la fecha. Alquien podria ayudarme.

Parte del codigo es el siguiente:

....
...
...

Do While Not EOF(1)
Line Input #1, pLinea
Dato1 = Mid(pLinea, 1, 2)
If Dato1 = "06" Then
Dato2 = Mid(pLinea, 3, 2)
Dato3 = Mid(pLinea, 5, 4)
Dato4 = Mid(pLinea, 9, 4)
Dato5 = Mid(pLinea, 13, 15)
Dato6 = Mid(pLinea, 28, 8)
Dato7 = Mid(pLinea, 36, 6)
Dato8 = Mid(pLinea, 42, 8)

DoCmd.RunSQL "INSERT INTO [IMPORTAC CC REV]([COD-REGISTRO],[COD-DATOS],[ENTIDAD-PRESENT]," & _
"[COD-BANCO-GESTOR],[NUM-REF],[FECHA-VCTO-REV],[CONTADOR-REMESA-REV],[FECHA-COB-REV])" & _
" VALUES('" & Dato1 & "','" & Dato2 & "','" & Dato3 & "','" & Dato4 & "','" & Dato5 & "','" & Dato6 & "','" & Dato7 & "','" & Dato8 & "')"

Aclaro:

El campo de la tabla FECHA-VCTO-REV es Fecha/Hora - Hora Corta
Y el dato6 me trae la fecha asi: 21102009

Si me dan una manito lo agradeceria!!!!

Besitos

Sandra!

Prueba con algo así:

... & cvdate(format(Dato5,"00/00/0000"))

Saludos
José Bengeochea Ibaceta

si te admite la fecha como dd/mm/aaaa

datodefecha=left$(dato6;2) & "/" & mid$(dato6;3;2) & "/" & mid$(dato6;5;4)

si por el cotrariro requiere la fecha formato amiricano mm/dd/aaaa

datodefecha=mid$(dato6;3;2) & "/" & left$(dato6;2) & "/" & mid$(dato6;5;4)