过滤Recordset

如果你有一个建立好的recordset但是你还需要另一个recordset可能
两者之间只差一个条件，这时候我们就不要建立两个recordset了
我们只需要利用Filter 属性就可以实现这个目的
Dim objRS, objFilter ' As ADODB.Recordset
Dim dcnDB ' As ADODB.Connection
Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.Open "Some connection string"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM tblOrders", dcnDB, adOpenStatic

objRS.Filter = "CustomerName Like %Smith%"
Set objFilter = objRS