返回的记录集如何再次添加内容

返回的记录集怎么再次添加内容？
Set rs = New ADODB.Recordset
rs.Open "select * from storage ", Conn, 1, 1
如上，得到一个记录集
id n c
1 t b
2 t c
3 b r

我现在要做的是，在这个记录集上再添加二条记录，不是rs.addnew rs.update那种更新记录集到库的操作
就只是在这个基础上再补充一二条记录，，然后我把它绑定到第三方控件上，这个怎么操作？
后面补充的是手动生成的数据，和数据库中的内容无关，所以不能事先一起读取出来，但我又不需要把它更新到数据库中。

搜索了一下找到这个Adodc1.Recordset.AddNew
但和我的又怎么结合？

[解决办法]
方法1：
rs.addnew后不执行rs.update就只更新rs,不更新到数据库

方法2：
SQL语句中直接用unine合并两个表
SELECT 'a' AS AA, 'b' AS BB
UNINE
SELECT AA,BB FROM T1
[解决办法]
第一次读取时先不读取后面字段，补充后再读取后面字段
[解决办法]
萎缩的照片...

VB code

    mdbRs.Open "select * from [product]", mdbConn, 1, 3    Set xlsRs = xlsConn.Execute("select * from [" & database & "$]")    With xlsRs        .MoveNext        Do While xlsRs.EOF <> True        mdbRs.AddNew        mdbRs.Fields("Product_title") = server.URLEncode(.Fields(2))        mdbRs.Fields("Product_Click") = Int(100 * Rnd)        mdbRs.Fields("Product_times") = Date & " " & Time        mdbRs.Fields("Category_id") = Category_id        mdbRs.Fields("Product_Price") =.Fields(5)        mdbRs.Fields("Product_Taxis")=i        mdbRs.Fields("pinpai") = .fields(3)        mdbRs.Fields("guige") = .Fields(4)        mdbRs.Update        .MoveNext        i=i+1        Loop        mdbrs.close        xlsrs.close    End With
[解决办法]
试试看：

1  使用客户端游标
rs.CursorLocation = adUseClient  

2  使用静态游标类型
rs.CursorType = adOpenStatic

3  使用批量锁
rs.LockType = adLockBatchOptimistic

3  打开记录集后关闭连接
cn  = Nothing


[解决办法]
将记录集中的内容显示到控件中后再在控件中增加额外的内容