problema con calulos en vb6 con DB

[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