ve emin değilim ama recordseti bu hali ile kullanamazsınız 
önceden tanımlamış olmanız gerek
mesela 
dim rs as dao.recordset
dim txtSQL as string
txtsql="" //// buraya sorgunuzun içeriği yazılacak
set rs=currentdb.openrecordset("txtSQL")
vs vs....