Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Me.IsPostBack = False Then
            Dim dsObj As DataSet = GetInitDataSet()
            BindGrid(dsObj)
 End If
End Sub

 Public Function GetInitDataSet() As DataSet
        Dim connObj As New SqlConnection
        Dim sqlconn As String
        Dim SimpComp As New SQLCon.SQLConnect
        Dim cmdObj As New SqlCommand
         Dim daRes As New SqlDataAdapter
        Dim dsRes As New DataSet

        sqlconn = SimpComp.GetConn
        Try
            connObj.ConnectionString = sqlconn
            cmdObj.Connection = connObj
            cmdObj.CommandText = "SelectUch"
            cmdObj.CommandType = CommandType.StoredProcedure

            daRes.SelectCommand = cmdObj
            daRes.Fill(dsRes, "Klasif_OPF")
            connObj.Close()
          
        Catch err As Exception
        Finally
            If Not connObj Is Nothing Then
                connObj.Close()
            End If
  End Try
        Return dsRes
    End Function

Public Sub BindGrid(ByVal ds As DataSet)
        MyGrid.DataSource = ds.Tables("Klasif_OPF")
        MyGrid.DataBind()
End Sub

Private Sub MyGrid_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyGrid.CancelCommand
        MyGrid.EditItemIndex = - 1 
        Dim dsRes As DataSet = FDataSet()
        BindGrid(dsRes)
    End Sub

    Private Sub MyGrid_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyGrid.EditCommand
        MyGrid.EditItemIndex = e.Item.ItemIndex
        Dim dsobj As DataSet = FDataSet()

        ' Dim dsRes As DataSet = GetInitDataSet()
        BindGrid(dsobj)
    End Sub

    Private Sub MyGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles MyGrid.PageIndexChanged
        MyGrid.CurrentPageIndex = e.NewPageIndex
        Dim dsRes As DataSet = GetInitDataSet()
        BindGrid(dsRes)
    End Sub

    Private Sub MyGrid_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles MyGrid.SortCommand
        Dim dsRes As DataSet = FDataSet()
        dsRes.Tables("Klasif_OPF").DefaultView.Sort = e.SortExpression
        BindGrid(dsRes)
    End Sub