Visual Basic - AYUDA URGENTE CON FECHAS......

Mi problema es el siguiente:
Tengo un text1.text donde introduzco una fecha, al actualizar la tabla me da error de conversion de datos, utilizando lo siguiente:
.fields("fecha")=val(text1.text), o si no en vez de actualizar con fecha me sale la hora.

Y el otro, es lo que sigue, tengo una fecha inicial 01/01/2001 y una fecha final 01/01/2003 ¿ Como puedo imprimir una lista de los meses desde la primera hasta la segunda, supongo que sumando los meses de uno en uno, pero no se como, lo que quiero que salga es
01/01/2001
01/02/2001
01/03/2001
...
.
.
01/01/2003

Gracias por vuestra colaboración

.fields("fecha")=Format(text1.text, "dd/mm/yyyy")

'Para lo segundo usa
For i = 1 To DateDiff("m", Text1.Text, Text2.Text)
Debug.Print DateAdd("m", i, Text1.Text)
Next i
'REemplazá debug.print por donde quieras mostrar el resultado y text1.text y text2.text por las fechas de inicio y fin respectivamente.

Afogutu.


Loop