I labored over paging through recordsets. Ultimately it is real simple, once the recordset is built right. Anyway, down to the meat. ============================================= ' Set up a pageable recordset. In this example, we have a customer database and we are pagin through ' the data one record at a time dim conn ' ADO connection Dim RS ' Recordset Dim sSQL ' SQL Get 'if Pagenum = "" Then Pagenum = 1 Set conn = server.createobject("ADODB.connection") Conn.Open "DSN=DatabaseName set RS = Server.CreateObject("adodb.RecordSet") sSQL = "Select * From tblOrders" Rs.Open sSql, Conn, 3 ' Set up the single page form RS.Pagesize = 1 ' How many recrds to display in a page iCnt = RS.PageCount ' Teh total number of pages in recordset ' Determine which way the the recordset sohould build Select Case Request("NAV") Case "" session("Pagenum") = 1 case "First" ' First Record session("Pagenum") = 1 case "Prev" ' Previous Record if session("Pagenum") > 1 then session("Pagenum") = session("Pagenum") - 1 End If case "Next" ' Next Record if session("Pagenum")< RS.PageCount then session("Pagenum") = session("Pagenum") + 1 End if case "Last" ' Last Record session("Pagenum") = RS.PageCount End Select ' Go to the page requested in PageNum RS.Absolutepage = Clng(session("Pagenum")) ' // Display the recrdset on form ' // Nav Button setup
====================================================================== There may be easiers ways to page through tables but this method works for me. Let me know what cha think... Derek Randles yobigd@home.com