problema con calulos en vb6 con DB

[Say_No_More]

Hola Amigos tengo un problemin , estoy trabajando en vb6 con base de datos acses 2000 conexion ADO, el tema es que cuando quiero calcular el valor del campo edad lo hace corectamente pero cuando paso a otro registro, o quiero guardar los datos ingresados, se produce un error y no guarda el calculo en la tabla de la db.
el codigo que uso es el siguiente:

Text1.Text = Date
Text2 = DateDiff("m", txtFECHA_NACIMIENTO, Text1)
txtEDAD = (Text2 / 12)

si alguien me puede ayudar lo agradezco muchio

[GeoAvila]

Text1.Text = Date
Text2.text = DateDiff("m", txtFECHA_NACIMIENTO, Text1)
txtEDAD = (val(Text2.text) / 12)

[Say_No_More]

GeoAvila :
intenete con lo que me pasaste pero sigue dando error, no al guardar pero si al pasar a otro regstro. igualmente guarda los datos pero no el calculo de la edad.
el error dice operacion cancelada, al depurar marca el error en

Private Sub cmdsiguiente_Click()
Dataconsul.rstpacientes.MoveNext
If Dataconsul.rstpacientes.EOF Then
Dataconsul.rstpacientes.MoveLast
MsgBox "Esta en el último registro activo"
End If

End Sub