Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            SqlDataAdapter1.Fill(DataSet11)
            DataGrid1.DataSource = DataSet11.Orders.DefaultView
            Session("OrdersDataView") = DataGrid1.DataSource
            DataBind()
        End If
    End Sub
 
    Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As _
      System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles _
      DataGrid1.SortCommand
        Dim dv As DataView = CType(Session("OrdersDataView"), DataView)
        dv.Sort = e.SortExpression
        DataGrid1.DataSource = dv
        DataGrid1.DataBind()
    End Sub

			<asp: DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 56px; POSITION:" & _
  "absolute; TOP: 56px" runat="server"
				Width="520px" Height="272px" AutoGenerateColumns="False" AllowSorting="True">
				<Columns>
					<asp:BoundColumn DataField="OrderID" SortExpression="OrderID" _
  HeaderText="OrderID"></asp:BoundColumn>
					<asp:BoundColumn DataField="CustomerID" SortExpression="CustomerID" _
HeaderText="CustomerID"></asp:BoundColumn>
					<asp:BoundColumn DataField="OrderDate" SortExpression="OrderDate" _
HeaderText="OrderDate"></asp:BoundColumn>
					<asp:BoundColumn DataField="ShipName" SortExpression="ShipName" _
HeaderText="ShipName"></asp:BoundColumn>
				</Columns>
			</asp: DataGrid>

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist