ผมต้องการ Select จาก Datagrid ให้ Show ข้อมูลอีกหน้านึงอ่ะครับ

	Function DataTableRows() As DataTable
		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)

		'*** Rows ***'
		dr = dt.NewRow
		dr("CustomerID") = "C002"
		dr("Name") = "John Smith"
		dr("Email") = "[email protected]"
		dr("CountryCode") = "EN"
		dr("Budget") = "2000000"
		dr("Used") = "800000"
		dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
		dr("CustomerID") = "C003"
		dr("Name") = "Jame Born"
		dr("Email") = "[email protected]"
		dr("CountryCode") = "US"
		dr("Budget") = "3000000"
		dr("Used") = "600000"
		dt.Rows.Add(dr)
			
		'*** Rows ***'
		dr = dt.NewRow
		dr("CustomerID") = "C004"
		dr("Name") = "Chalee Angel"
		dr("Email") = "[email protected]"
		dr("CountryCode") = "US"
		dr("Budget") = "4000000"
		dr("Used") = "100000"
		dt.Rows.Add(dr)

		Return dt '*** Return DataTable ***'
	End Function

 Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        Dim lblID, lbla, lblb, lblc, lbld, lble As Label
        Dim i As Integer
        Dim a, b, c, d, f As String
        For i = 0 To DataGrid1.Items.Count - 1
            lblID = DataGrid1.Items(i).FindControl("lblFiscal")
            lbla = DataGrid1.Items(i).FindControl("lblACCode")
            lblb = DataGrid1.Items(i).FindControl("lblCR")
            lblc = DataGrid1.Items(i).FindControl("lblDept")
            lbld = DataGrid1.Items(i).FindControl("lblLoc")
            lble = DataGrid1.Items(i).FindControl("lblsubject")
            Session("Fiscal") = lblID.Text
            Session("AC") = lbla.Text
            Session("CR") = lblb.Text
            Session("Deptcd") = lblc.Text
            Session("Loc") = lbld.Text
            Session("Subject") = lble.Text
            If e.CommandName = "Img" Then
                printpic()
            ElseIf e.CommandName = "Select" Then
                Response.Redirect("Show_Data_CMS.aspx")
            End If
        Next

    End Sub