Per il tuo datatable, credo che basti metterlo nella cache

Cache("dt") = dt

e poi accedervi con:

codice:
If not isnothing(Cache("dt")) then
   dim dt2 as datatable
   dt2 = cache("dt")
   ip = dt2.Rows(0).Item(0)
End if