Cache dataset ?

Hejsa,

Jeg har lavet følgende til at cache et dataset :

Public Shared Function CacheProduct()
    Dim Source As DataSet = CType(HttpContext.Current.Cache("Product"), DataSet)
    If Source Is Nothing Then
        Source = ProductData.LoadProduct()
        HttpContext.Current.Cache("Product") = Source
    Else
        Dim intRows As Integer
        intRows = Source.Tables(0).Rows.Count

        If intRows <> CInt(ProductData.CountProduct()) Then
            HttpContext.Current.Cache.Remove("Product")
            Source = ProductData.LoadProduct()
            HttpContext.Current.Cache("Product") = Source
        End If
        End If

        Return Source
End Function

Og det virker gangkse fint, men når jeg så opdatare et felt i min database får jeg ikke loadet det ændrede ind i min cache da det enten ikke er tomt eller ikke er kommet en ny record til i databasen. Hvordan drejer jeg lige den ?

/Websam