Cache Issue

 

I have the following code:

 

    Private Sub LoadData()
       

        Dim prodQuery = theManager.Products

 

        If theStatus Is Nothing Then
            theStatus = New StatusInfo
            theStatus.IsCached = True
            prodQuery.QueryStrategy = QueryStrategy.DataSourceOnly
        Else
            prodQuery.QueryStrategy = QueryStrategy.CacheOnly
        End If

 

        theManager.ExecuteQueryAsync(prodQuery, AddressOf OnProductLoaded, Nothing)

    End Sub

    Private Sub OnProductLoaded(ByVal args As EntityFetchedEventArgs)

        productGrid.ItemsSource = args.Result

    End Sub

 

The object reference "theStatus" is working correctly and getting me to the correct QueryStatus code in the If block, but regardless, the application goes to the Server (DataSource) regardless of the QueryStrategy setting.

 

I assume I am missing something fundamental and could use some help.

 

Thanks ... bill