Tabla en memoria

[natyvydaddd]

Mira este es el origen de mis datos como te comento utilizo una tabla dinámica, pero la verdad es que no se como realizar la consulta
Sub source()
'Response.Write(Session.Item("entroanuevo"))
'Response.Write("ENTROA AQUI")
Dim parpre As New DataColumn
Dim recurs As New DataColumn
Dim descri As New DataColumn
Dim unimed As New DataColumn
Dim cantid As New DataColumn
Dim fecreq As New DataColumn
Dim valrec As New DataColumn
parpre.ColumnName = "parpre"
parpre.DataType = System.Type.GetType("System.Int32")
parpre.AllowDBNull = True
parpre.AutoIncrement = False

recurs.ColumnName = "recurs"
recurs.DataType = System.Type.GetType("System.Int32")
recurs.AllowDBNull = True
recurs.AutoIncrement = False

descri.ColumnName = "descri"
descri.DataType = System.Type.GetType("System.String")
descri.AllowDBNull = True
descri.AutoIncrement = False

unimed.ColumnName = "unimed"
unimed.DataType = System.Type.GetType("System.String")
unimed.AllowDBNull = True
unimed.AutoIncrement = False

cantid.ColumnName = "cantid"
cantid.DataType = System.Type.GetType("System.Int32")
cantid.AllowDBNull = True
cantid.AutoIncrement = False

fecreq.ColumnName = "fecreq"
fecreq.DataType = System.Type.GetType("System.DateTime")
fecreq.AllowDBNull = True
fecreq.AutoIncrement = False

valrec.ColumnName = "valrec"
valrec.DataType = System.Type.GetType("System.Int32")
valrec.AllowDBNull = True
valrec.AutoIncrement = False
'*****AGREGANDO LOS CAMPOS A LAS TABLAS
Dim ad_dereapoyo As New DataTable("ad_dereapoyo")
Dim nuevafila As DataRow
ad_dereapoyo.Columns.Add(parpre)
ad_dereapoyo.Columns.Add(recurs)
ad_dereapoyo.Columns.Add(descri)
ad_dereapoyo.Columns.Add(unimed)
ad_dereapoyo.Columns.Add(cantid)
ad_dereapoyo.Columns.Add(fecreq)
ad_dereapoyo.Columns.Add(valrec)
'REALIZO LA CONEXION PARA SACAR TODOS LOS CAMPOS QUE COINCIDAN CON EL NUMERO DE REQUISICION DEL WEBFORM2
'If Session.Item("entroanuevo") = 1 Then
Dim fila As DataRow
Dim tabla As New DataTable
Dim strcomando As String
Dim adaptador As OleDb.OleDbDataAdapter
Dim usuario, usuario1, usuario2, usuario3, nombre, nombre1, nombre2, nombre3, nombre4 As String
Dim numfila As Long
Dim contfila As Integer
''REALIZANDO LA CONECCION PARA AD_DERE
Dim conexion As New OleDbConnection("provider=vfpoledb.1;data source=C:\Req_dpts\ad_dere.dbf;")
strcomando = "select * from ad_dere"
adaptador = New OleDb.OleDbDataAdapter(strcomando, conexion)
adaptador.Fill(ds, "ad_dere")
For Each fila In ds.Tables("ad_dere").Rows
contfila += 1 'Response.Write(fila.Item("clave"))
'Response.Write(contfila)
Next
Dim x, band As Integer
Dim nombrecon, ape_pat, ap_mat As String
band = 0
fila = ds.Tables("ad_dere").Rows(x)
For cont As Integer = 1 To contfila
fila = ds.Tables("ad_dere").Rows(x)
If Session.Item("aleatorio") = fila.Item("numreq") Then
'****AGREGANDO UNA FILA****
nuevafila = ad_dereapoyo.NewRow()
nuevafila("parpre") = fila.Item("parpre")
nuevafila("recurs") = fila.Item("recurs")
nuevafila("descri") = fila.Item("descri")
nuevafila("unimed") = fila.Item("unimed")
nuevafila("cantid") = fila.Item("cantid")
nuevafila("fecreq") = fila.Item("fecent")
nuevafila("valrec") = fila.Item("valrec")
ad_dereapoyo.Rows.Add(nuevafila)
Session.Add("data", ad_dereapoyo)
x += 1
Else
x += 1
End If
Next

'MOSTRANDO LA INFORMACIÓN EN EL DATAGRID
ds.Tables.Add(CType(Session.Item("data"), DataTable))
DataGrid1.DataSource = Session.Item("data")
DataGrid1.DataBind()
DataGrid1.Enabled = False
Button1.Enabled = False
Response.Write(Session.Item("entroanuevo"))

End Sub