急救水晶报表的连接显示

[qing7911]

Dim SQLCnnDB As New SqlConnection
Dim SQLdataset As New System.Data.DataSet
SQLCnnDB.ConnectionString = "server=QING-7911;database=ben;uid=sa;pwd=sa;pooling=false;max pool size=200"
SQLCnnDB.Open()
Dim myCommand As SqlDataAdapter = New SqlDataAdapter("SELECT top 100 * FROM tab_ding", SQLCnnDB)
myCommand.Fill(SQLdataset, "tab_ding")

Dim MyRepor As New CrystalReport1
MyRepor.SetDataSource(SQLdataset.Tables(0))
Me.CrystalReportViewer1.ReportSource = MyRepor
SQLCnnDB.Close()

我用了以上的方法，连接错误。大虾们帮改下，应该怎么写？

[qing7911]

说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: CrystalDecisions.CrystalReports.Engine.OutOfLicenseException: 因为未能在分配的时间内获得免费许可证，所以 Crystal Reports 作业失败。可以直接从 Crystal Decisions 或通过 Crystal Decisions 在线商店购买更多的许可证。

源错误:


行 35：
行 36： Dim MyRepor As New CrystalReport1
行 37： MyRepor.SetDataSource(SQLdataset.Tables(0))
行 38： Me.CrystalReportViewer1.ReportSource = MyRepor
行 39： SQLCnnDB.Close()


源文件: E:\西餐系统\CY\WebApplication2\WebForm2.aspx.vb 行: 37