sub Sort_Grid(sender as object, e as DataGridSortCommandEventArgs)
	
		Dim myPageData as new DataSet
		Dim myConn as OleDbConnection
	
		myConn = New OleDbConnection("Provider=msdaora;" _ 
			& "Data Source=rtr;" _
			& "User Id=erfre;" _
			& "Password=erfre;")
				
		Dim myCommand as OleDBDataAdapter

			myCommand = new OleDBDataAdapter _
				("select id, company, city, fio from opk_main", myConn)
		
		myCommand.Fill(myPageData, "opk_main")
		
				dg_opk_main.DataSource = myPageData.Tables("opk_main").DefaultView

		dg_opk_main.DataBind
		
		dim dv as DataView = new DataView()
		
		dv = myPageData.Tables("opk_main").DefaultView
		dv.sort = e.sortExpression
		dg_opk_main.DataSource = dv
		
			Dim Column As DataGridColumn
			
			ViewState("sort") = e.SortExpression
		
			for each Column in dg_opk_main.Columns
				column.HeaderText = column.HeaderText.Replace(" v", "")
				column.HeaderText = column.HeaderText.Replace(" ^", "")
				
				if column.sortExpression = e.sortExpression then
					if not e.sortExpression.IndexOf(" desc") = - 1  then
						column.SortExpression= column.SortExpression.Replace(" desc", "")
						column.headerText += " ^"
					else
						column.SortExpression += " desc"
						column.HeaderText += " v"
					end if
				end if
			next
		
		dg_opk_main.dataBind()
	
	end sub
	
	sub dg_opk_main_pageIndexChanged(obj as object, e as dataGridPageChangedEventArgs)
		dg_opk_main.CurrentPageIndex=e.NewPageIndex
		dg_opk_main.databind()
	end sub