puting session into a dataadapter

this is my codes:

Function BindData()
objDT = New System.Data.DataTable("User")

objDT.Columns.Add("ID", GetType(Int32))
objDT.Columns("ID").AutoIncrement = True
objDT.Columns("ID").AutoIncrementSeed = 1

objDT.Columns.Add("Create_User", GetType(String))
objDT.Columns.Add("Create_Date", GetType(Date))
objDT.Columns.Add("Text", GetType(String))
Session("User") = objDT

End Function

Sub AddToCart(ByVal s As Object, ByVal e As EventArgs)
objDT = Session("User")
'Dim product = ddlProducts.SelectedItem.Text
objDR = objDT.NewRow
objDR("Create_User") = textbox_Create_User.Text
objDR("Create_Date") = textbox_Create_Date.Text
objDR("Text") = TextBox_Text.Text
objDT.Rows.Add(objDR)
Session("User") = objDT

dg.DataSource = objDT
dg.DataBind()

End Sub
//////////////////////////////////////////////////////////////////////////////////////////////////////////

Its there anyway that i put the records in the session into a dataadapter?

Thanks!