Tengo Un Error en el DataGrid

[Britny]

Dependiendo del nombre que yo seleeciono en el listbox, me aparece una informacion el datagrid, pero cuando quiero seleccionar otro nombre en el data grid me sale el siguiente error:


Valor CurrentPageIndex no válido. Debe ser >= 0 y < PageCount.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.Web.HttpException: Valor CurrentPageIndex no válido. Debe ser >= 0 y < PageCount.

Error de código fuente:


Línea 83: Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_G RUPO").Value = ID_GRUPO.Text
Línea 84: Me.SqlDataAdapter1.Fill(Me.DataSet11)
Línea 85: Me.DataGrid1.DataBind()
Línea 86: ListGrupo.Visible = False
Línea 87: End Sub


Archivo de origen: C:\Inetpub\wwwroot\GERENCIA\WebForm2.aspx.vb Línea: 85

Y mi codigo es el siguiente:

Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Dim cn As New OleDb.OleDbConnection(adoCn)
cn.Open()
Dim cmd As New OleDb.OleDbCommand("SELECT * FROM DB_GRUPO", cn)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
ListGrupo.DataSource = dr
ListGrupo.DataTextField = "cNombreGrupo"
ListGrupo.DataBind()
dr.Close()
cn.Close()
ListGrupo.Visible = True
End Sub

Private Sub ListGrupo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListGrupo.SelectedIndexChanged
If ListGrupo.SelectedIndex >= 0 Then
GRUPO.Text = " " & ListGrupo.SelectedItem.Text
ID_GRUPO.Text = ListGrupo.SelectedIndex + 1
End If
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_G RUPO").Value = ID_GRUPO.Text
Me.SqlDataAdapter1.Fill(Me.DataSet11)
Me.DataGrid1.DataBind()
ListGrupo.Visible = False
End Sub

Sub BindTheData()
Me.SqlDataAdapter1.SelectCommand.Parameters("@ID_G RUPO").Value = ID_GRUPO.Text
Me.SqlDataAdapter1.Fill(Me.DataSet11)
Me.DataGrid1.DataBind()
End Sub


Sub PageIndexChanged_Click(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = e.NewPageIndex
BindTheData()
End Sub

Sub SortCommand_Click(ByVal sender As Object, ByVal e As DataGridSortCommandEventArgs)
lblOrderBy.Text = " ORDER BY " & e.SortExpression
BindTheData()
End Sub