如何把recordset中的一部分记录复制到另一个recordset里面

Question

比如：有recordset A和B,其中A里有20条记录，B里记录数为空，如何把A里的第11--20条记录完全复制到B中?
在线等待！
部分源码如下：
Public Function GetDataXml() As String
    Dim tmpStream As New ADODB.Stream
    Dim strTmp As String
    Dim tmpRecordSet As New RecordSet
    tmpStream.Open
    If GetData() Then
        If myRecordSet.State = 1 Then
                myRecordSet.Save tmpStream, adPersistXML  '把myRecordSet的所有记录保存为xml格式
                strTmp = tmpStream.ReadText
        End If
    End If
    
    tmpStream.Close
    GetDataXml = strTmp
End Function
我只想把myRecordSet的部分记录保存为xml

Answer 1

recordset.Filter="col = ''"
set Rsnew=recordset.clone