สอบถามเกี่ยวกับการทำ Cache Database ครับ VB.NET ครับ

Public Shared ReadOnly Property MyData() As DataTable
     Get
          Dim Temp As DataTable = DirectCast(HttpContext.Current.Cache("MyData"), DataTable)

          If Temp Is Nothing Then
               Temp = GetData()
               HttpContext.Current.Cache.Insert("MyData", Temp, Nothing, DateTime.Now.AddHours(1), TimeSpan.Zero)
          End If

          Return Temp
     End Get
End Property