ขอวิธีการเอาข้อมูลจาก gridview ลงไปอีกตารางหนึ่งหน่อยครับ

Dim objConn As New System.Data.OleDb.OleDbConnection
Dim objCmd As New System.Data.OleDb.OleDbCommand
Dim dtAdapter As New System.Data.OleDb.OleDbDataAdapter

Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
strSQL = "SELECT * FROM customer"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)
dt = ds.Tables(0)

Session("mySession") = dt

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

'*** BindData to Control ***'
Dim dt2 As DataTable
dt2 = Session("mySession")

IF Not IsNothing(Session("mySession")) Then
Me.myDataGrid.DataSource = dt2
Me.myDataGrid.DataBind()
End IF

Dim dt As New DataTable
Dim dr As DataRow

'*** Column ***'
dt.Columns.Add("CustomerID")
dt.Columns.Add("Name")
dt.Columns.Add("Email")
dt.Columns.Add("CountryCode")
dt.Columns.Add("Budget")
dt.Columns.Add("Used")

'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "C001"
dr("Name") = "Win Weerachai"
dr("Email") = "[email protected]"
dr("CountryCode") = "TH"
dr("Budget") = "1000000"
dr("Used") = "600000"
dt.Rows.Add(dr)

Session("SessionDt") = dt

Dim dt As DataTable = Session("SessionDt")
Dim dr As DataRow


'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "xxxx"
dr("Name") = "xxxx"
dr("Email") = "xxxxxxxx"
dr("CountryCode") = "TH"
dr("Budget") = "1000000"
dr("Used") = "600000"
dt.Rows.Add(dr)

Session("SessionDt") = dt

        Dim dt As New DataTable
        Dim dr As DataRow
		
	'*** Column ***'
        dt.Columns.Add("CustomerID")
        dt.Columns.Add("Name")
        dt.Columns.Add("Email")
        dt.Columns.Add("CountryCode")
        dt.Columns.Add("Budget")
        dt.Columns.Add("Used")
		
	'*** Rows ***'
	dr = dt.NewRow
	dr("CustomerID") = "C001"
	dr("Name") = "Win Weerachai"
	dr("Email") = "[email protected]"
	dr("CountryCode") = "TH"
	dr("Budget") = "1000000"
	dr("Used") = "600000"
	dt.Rows.Add(dr)
	
	Session("myCart") = dt

        Dim dt As DataTable = CType(Session("myCart"),DataTable)
        Dim dr As DataRow
			
	'*** Rows ***'
	dr = dt.NewRow
	dr("CustomerID") = "C003"
	dr("Name") = "Tony Stark"
	dr("Email") = "[email protected]"
	dr("CountryCode") = "US"
	dr("Budget") = "3000000"
	dr("Used") = "600000"
	dt.Rows.Add(dr)
	
	Session("myCart") = dt

   Me.GridView.DataSource = CType(Session("myCart"),DataTable) 
   Me.DataBid()