从RecordSet中仅复制一行（VB6）

I have a RecordSet in VB6 containing multiple rows. I have to copy the current (in a loop) row, and only this one, to another RecordSet (which will contain only that row).I have a RecordSet in VB6 containing multiple r