This is my code - Allow Sorting is set to True, but this still doesn't work - can anyone tell me why please?

Thanks

Pauline

Public Class WebForm3
    Inherits System.Web.UI.Page
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SpeciesLP11 As SppHabLPsWebClient.pauline_warman.SpeciesLP1

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SpeciesLP11 = New SppHabLPsWebClient.pauline_warman.SpeciesLP1()
        CType(Me.SpeciesLP11, System.ComponentModel.ISupportInitialize).BeginIni t()
        '
        'SpeciesLP11
        '
        Me.SpeciesLP11.DataSetName = "SpeciesLP1"
        Me.SpeciesLP11.Locale = New System.Globalization.CultureInfo("en-GB")
        Me.SpeciesLP11.Namespace = "http://www.tempuri.org/SpeciesLP1.xsd"
        CType(Me.SpeciesLP11, System.ComponentModel.ISupportInitialize).EndInit( )

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ws As New SppHabLPsWebClient.pauline_warman.SppHabLPsService ()
        ws.Credentials = System.Net.CredentialCache.DefaultCredentials
        SpeciesLP11.Merge(ws.GetSpeciesLps())
        DataGrid1.DataSource = SpeciesLP11
        DataGrid1.DataBind()
    End Sub

    Sub DataGrid1_SortCommand(ByVal source As Object, _
ByVal e As System.Web.UI.WebControls.DataGridSortCommandEvent Args) _
Handles DataGrid1.SortCommand

        Dim oDataSet = SpeciesLP11
        Dim DataView1 As DataView

        DataView1 = New DataView(oDataSet.Tables(0))
        DataView1.Sort = e.SortExpression
        DataGrid1.DataSource = DataView1
        DataGrid1.DataBind()

    End Sub