Mathematica is case sensitive - you have defined data, so anything using Data will definitely not work.
The result from how data is defined, it has the header TemporalData. Here is what you can do with this:
data["Properties"]
(* Out: {"Components","DateList","DatePath","DatePaths","Dates","FirstDates",\
"FirstTimes","FirstValues","LastDates","LastTimes","LastValues",\
"Part","Path","PathComponent","PathComponents","PathCount",\
"PathDates","PathFunction","PathFunctions","PathLength","PathLengths",\
"Paths","PathTimes","SliceData","SliceDistribution","TimeList",\
"Times","ValueDimensions","ValueList","Values"} *)
So - for example for getting all values you just write:
data["Path"]
or for the value at time t=2:
data["SliceData", 2]
or you have an interpolating function for any time value inside the respective interval:
data["PathFunction"][2.0001]
Liebe Gruesse -- Henrik