Ayuda con la función Fecha de Hoy

[ASelo182]

Buenas! Estoy realizando una pequeña aplicación en Visual Basic (es mi primera vez jaja). He creado un formulario donde hay que introducir una fecha. Por defecto, en el campo siempre aparece la fecha de hoy aunque ésta se puede cambiar si así se desea. Éste es el código que usé:

Código:

Private Sub Command8_Click()
Text6 = Format(Now, "dd/mm/yyyy")
End Sub

Hasta allí, todo funciona bien. El problema viene cuando quiero guardar esa fecha en una base de datos administrada con Acces. El código que uso para guardar la fecha (entre otros parámetros) en la BD es éste:

Código:

x = "Insert Into stock values (" & Val(Text1) & ",'" & Text2 & "'," & Text3 & "," & Val(Text4) & "," & Val(Text5) & "," & Val(Text6) & ")"
conexion_basedatos.Execute x

Dónde Text6 equivale al TextBox donde se debe introducir la fecha. Y así está configurado el campo 'Fecha' en Access:
img410.imageshack.us/img410/3896/accessd.png

El Problema es que al guardar la fecha en la base de datos, en vez de guardar el valor que se ha introducido, guarda algo como esto 13/01/1900.

Ya no sé que mas intentar, si me pueden ayudar les estaría eternamente agradecido

[pkj]

El problema es que al usar val(text6) el valor que estás recogiendo es solo el dia, de modo que te lleva a ese dia del primer mes del primer año que conoce.

[ASelo182]

Aunque no lo creas, recién intenté eso pero no funcionó. Ahora lo volví a hacer y trabaja a la perfección
Muchas gracias!!!!
+1 de reputación