Dudo mucho que el código que enviaste funcione, si quieres cambiar cuantos elementos quieres mostrar en tu DataGrid tienes que asignar la propiedad PageSize de éste y luego hacer el binding de tus datos:
Tu código quedaría mas o menos así:
Código:
Sub DropDownList2_SelectedIndexChanged(sender As Object, e As EventArgs)
DataGrid1.PageSize=CInt(DropDownList2.SelectedItem.Value) ' DropDownList2.SelectedItem.Text
' Tu código para hacer el binding de tus datos
End Sub