Urgente ayuda con el codigo

[mjesus20]

hola necesito ayuda con el siguiente codigo necesito controlar la propiedad pagesize del datagrid pueden indicarme donde esta el error

Function MyQueryMethod() As System.Data.DataSet
Dim connectionString As String = "server=xxxxx; user id='xxxxx'; password=''; database=xxxxxxxx
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

Dim queryString As String = "SELECT [Inventario].[Item], [Inventario].[Inventario], [Inventario].[Equipo], [In"& _
"ventario].[Fecha Compra], [Inventario].[Modelo], [Inventario].[Serie], [Inventar"& _
"io].[Valor Compra], [Inventario].[Ubicacion] FROM [Inventario]order by item"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function


Sub pagerbuttonclick(sender As Object, e As EventArgs)
dim arg as string = sender.commandargument
select arg
case "siguiente"
if(datagrid1.currentpageindex <(datagrid1.pagecount - 1 )) then
datagrid1.currentpageindex + = 1
end if
case "anterior"
if (datagrid1.currentpageindex > 0) then
datagrid1.currentpageindex - = 1
end if
case "ultima"
datagrid1.currentpageindex= (datagrid1.pagecount -1)
case else
datagrid1.currentpageindex=0
end select
datagrid1.datasource=myquerymethod()
datagrid1.databind()
End Sub

sub mi_cambio(sender as object, e as system.web.ui.webcontrols.datagridpagechangedevent args)
datagrid1.currentpageindex=e.newpageindex
datagrid1.datasource=myquerymethod()
datagrid1.databind
end sub

Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs)
datagrid1.datasource=myquerymethod(dropdownlist1.i tems(dropdownlist1.selectedindex).text)
datagrid1.pagesize=Cint(dropdownlist1.selecteditem value)
datagrid1.databind()
End Sub