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

我想要在内存中建一个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 rsCRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault