急啊!好急啊!怎麼控制打印水晶報表的內容

我的代易做图如下:
Dim sqlstr As String = "select * from feng where id=1"
        Dim con As New SqlConnection("server=.;database=Data;User ID=sa;Password=")
        con.Open()
        Dim ds As New DataSet
        Dim sda As New SqlDataAdapter(sqlstr, con)
        sda.Fill(ds, "feng")
        Dim doc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        doc.Load(Server.MapPath("~/Admins/CrystalReport.rpt"))
        doc.SetDataSource(ds)
        Dim log As New CrystalDecisions.Shared.TableLogOnInfo()
        Dim tb As CrystalDecisions.CrystalReports.Engine.Table
        For Each tb In doc.Database.Tables
            log = tb.LogOnInfo
            log.ConnectionInfo.ServerName = "10.11.0.146" '"10.11.2.2"
            log.ConnectionInfo.DatabaseName = "Data" '"CXTj"
            log.ConnectionInfo.UserID = "sa" '"yuan"
            log.ConnectionInfo.Password = "" '"yuan"
            tb.ApplyLogOnInfo(log)
        Next
        'doc.PrintOptions.PrinterName = Session("sss")
        'doc.PrintToPrinter(1, False, 0, 0)
        CrystalReportViewer1.ReportSource = doc

我打印出來的是表里所有的記錄,我該怎麼控制打印我規定的記錄,及條數!
各位大哥幫幫忙啊!小弟在這里先謝謝你了啊! --------------------编程问答-------------------- 我提些思路哦，不知道对不对，你自己查找一下。
    我现在用的是在本地显示水晶报表，因此，我先建一个数据集，然后将字段分布到报表上面，最后在程序中用setdatasource将数据赋给报表。
    而我看你的程序，好象是要从服务器上读取报表并显示（我的概念有些忘了，好象水晶报表有两种方式，一种是本地显示，一种是服务器显示），那么setdatasource对他是没有效果的，你要做的，是考虑在.rpt如何设置显示的数据(好象有一个sql语名的参数)。
    也不知道对不对，仅供参考。 --------------------编程问答-------------------- 嘿嘿,我已經做出來了啊,呵呵
不過還是謝謝你了啊,呵呵

补充：.NET技术 ,  VB.NET