Try

      Dim dbdate As String = "25 April 1976"

      Dim newdate As DateTime = Convert.ToDateTime(dbdate)

      Response.Write(newdate.ToString("d") & "<br>")

      Response.Write("Age : " & DateDiff("yyyy", newdate, Now()))

Catch ex As Exception

       Response.Write(ex.Message.ToString)

End Try