Private Sub PGRID_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles PGRID.SortCommand
  If ADCNT = " ASC" Then
    ADCNT = " DESC"
  Else
    ADCNT = " ASC"
  End If
  soex = e.SortExpression & ADCNT
  PGRID.CurrentPageIndex = 0
  CNTL.Text = GVIEW()
End Sub