sql语句实现分页

sql语句实现分页：

 sqlstr  =   " select top 10 * from shebei where id not in (select top  "   &  ( CInt (pagenum)  -   1 )  *   10   &   "  id from shebei order by id desc) order by id desc "

 

' 计算总页数
         Dim   str   As   String   =   " select count(*) from shebei "
         Dim  rd  As  Data.OleDb.OleDbDataReader
        rd  =  db.readdata( str )
         Dim  pagesum  As   Integer  ‘总页数
         Dim  rdcount  As   Integer   ’总记录数
         While  rd.Read
            rdcount  =  rd( 0 )
         End   While
         If  rdcount  Mod   10   =   0   Then
            pagesum  =  rdcount  /   10    ’每页显示10条
         Else
            pagesum  =  (rdcount  -  rdcount  Mod   10 )  /   10   +   1     
         End   If