VB - kako iz Recordseta dobiti nov Recordset?

imam takole
ssql = "select * from Kontrolnik Order by Zap_st"
Set db1 = New Connection
db1.CursorLocation = adUseClient
db1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=Podatki\Podatki.mdb;Jet OLEDB;"
Set adoPrimaryRS1 = New Recordset
adoPrimaryRS1.Open ssql, db1, adOpenStatic, adLockOptimistic

DOBIM TABELO NA PODLAGI TEGA - ADOPRIMARYRS1

zdaj bi pa rad iz teh podatkov naredil nov query

Set NOV_SET = New Recordset
NovFilter = "Select * from Kontrolnik where [Predlagatelj] LIKE %kajo%"

KAKO DOBITI IZ PODATKOV ADOPRIMARYRS1 NA NOVO FILTRIRANE PODATKE S TEM DODATNIM PARAMETROM

npr.
NOV_SET.Open NovFilter, adoPrimaryRS1, adOpenStatic, adLockOptimistic

ALI NEKAKO TAKO, vendar kako?

ali pa sistem NESTED QUERY?
ssql = "select ("Select * from Kontrolnik where [Predlagatelj] LIKE %kajo%") from Kontrolnik Order by Zap_st"

SAMO TALE MI NE DELA, PA ZGORNJI TUDI NE... grrr