VB6 data_report NOT using dataenvironment

I am looking for the code (short, sweet, and well commented) to take a recordset (see example below) and print out a data report. The report will contain some client information at the top (e.g, name, address, etc.) then the rest of the page is blank. The next page will have record #2. The page after that record #3 from the dataset, and so on. The number of pages is variable from 1 to 100 or more. (The record set essentially is a list of folks being pulled from a medical schedule database. All the clients (aka patients) who have appointments will need their address and insurance information placed on the top of a form. Getting the patient info on the page, and then moving to the next patient on the next page is what I need to accomplish here.) I realize that using a detail window makes sense, but I need to do this all in code, and NOT linking fields to the dataenvironment. How do I do this not using controls, but rather via code alone. Thanks. Jon P.S. given the number of times I've been told this can be done, and then the accepted bidder can't do it, I will only select a coder who sends me the code or demo up front. Thanks. Here is the code that pulls the recordset: Dim cnn1 As [login to view URL] Dim strQry As String Dim rs As [login to view URL] strQry = "Select * from Scheduling Where [login to view URL] Like '" & p_ScheduleDate & "' Order By [login to view URL]" Set cnn1 = New [login to view URL] [login to view URL] = g_ADOschedule [login to view URL] Set rs = GetRecordSet(cnn1, strQry) 'get the recordset With rs While Not [login to view URL] 'my code that pulls the user's name, etc. go here, and this I don't need help with. Just the code that gets each 'recordset to be displayed on a seperate page. [login to view URL] Wend End With Set cnn1 = Nothing Set rs = Nothing ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. ## Platform win