拜求，关于水晶报表与虚拟表的问题。

我想要在内存中建一个recordset，然后以这个为水晶报表的数据源，字段是提前定义好的，但就是没有内容显示，请高手指教，万分感谢！ 我的代码如下：
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.Fields.Append "LotB", adBSTR, 40, , LotB
.Fields.Append "LotA", adBSTR, 40, , LotA
.Fields.Append "OrderID", adBSTR, 40, , OrderID
.Fields.Append "JobOrderID", adBSTR, 40, , JobOrderID
.Fields.Append "Package", adBSTR, 40, , Package
.Fields.Append "DeviceName", adBSTR, 40, , DeviceName
.Fields.Append "CaseID", adBSTR, 40, , CaseID
.Fields.Append "Resin", adBSTR, 40, , Resin
.Fields.Append "OutNumber", adBSTR, 40, , OutNumber
.Fields.Append "Unit", adBSTR, 40, , Unit
.Fields.Append "Number", adBSTR, 40, , Number
.Fields.Append "MoldNumber", adBSTR, 40, , MoldNumber
.Fields.Append "Customer", adBSTR, 40, , Customer
.Fields.Append "OutDate", adBSTR, 40, , OutDate
.Fields.Append "Urgent", adBSTR, 40, , Urgent
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
rs.AddNew
For i = 0 To 14

rs.Fields(i).Value = "dadf"

Next
rs.Update
Report.Database.SetDataSource rs

CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault