简单分页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上