vb.net和crystal report的响应速度太慢了

大家好，有人能帮我完成我的项目吗？我已经创建了一个vb.net应用程序，它在报告中生成了一条473052记录，在加载报告之前我花了3-5分钟，下面是我的代码：

---我的职能

     Public Function staffbyyear(ByVal dates As String) As DataTable
    Dim db = New database
    Dim dt As New DataTable
    With db
        .sqlStr = "SELECT date, attendant, subtotal FROM transactions where year(date)= '" & dates & "' and finish = 1" 'query string
        .sqlDa.SelectCommand = .sqlcm(.sqlStr, .connect) 'execute command
        .sqlDa.Fill(.sqlDt) 'get results and store in sqldt
        .close()
    End With

    dt = db.sqlDt

    Return dt
End Function

--填写我的报告

      Imports CrystalDecisions.CrystalReports.Engine
      Imports CrystalDecisions.Shared
      Private rptstr as string
      Private Sub fillreportstaffbyyear(ByVal d As String)
       Dim cryRpt As New ReportDocument
       Dim rptPath = Application.StartupPath.Remove(Application.StartupPath.IndexOf("bin"), Len(Application.StartupPath) - Application.StartupPath.IndexOf("bin"))
       cryRpt.Load(rptPath & "reportstaffbyyear.rpt") '
       cryRpt.SetDataSource(staffbyyear(cmbyear.Text))
       '---modified here
       crviewer.crv1.ReportSource = cryRpt
       rptstr = vbNullString


End Sub

--显示报告

     Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click
        Dim strname As String = cmbyear.Text.Trim
        fillreportstaffbyyear(strname)
        crviewer.Show()
     End sub

---

你在哪一部分经历了“缓慢”的行为？您是否检查过您的查询是否立即返回所需的行？@F0r3v3r-A-N00b在crystal report viewer中显示的记录部分，并将记录填充到报告中。希望您能帮助我检索所有这些行需要多长时间？需要2-3分钟，如果单击下一页，则需要1分钟loadWell这一定是因为行数太多了。您真的需要一次生成所有400K+行吗？