简单分页2

' 创建一个填充数据集的过程
Sub readpage(ByVal n As Integer)
　sDA  =  New SqlDataAdapter( " select employeeid, lastname from employees order by employeeid " , scon)
　ds  =  New DataSet
　ds.Clear()
　sDA.Fill(ds, (n  -   1 )  *  rowCount, rowCount,  " employees " )
End Sub

然后绑定到ds上