急!如何对记录集进行快速筛选

dim rs as new recordset
dim rs1 as new recordset
rs.fields.append "a",adchar,2
rs.fields.append "b",adchar,10
rs.open
rs.addnew array("a","b"),array("1",123")
rs.addnew array("a","b"),array("2",456")
......以上为建立记录集示意
实际中字段近40多,收集的记录多达十几万行如何快速对rs进行筛选 把符合条件的记录重新写到一个新的记录集rs1中?
循环判断或写入数据库的方法不考虑 有没有更快的方法实现,能否用sql语句直接对rs进行操作急.....
谢谢!!!!