Gemme forespørgsel i sted for ren SQL

Kan man gemme denne forespørgsel og kalde den så rs.open stadig virker?

SQLStr = "SELECT TOP " & Antal & " Rnd([EmneNr]) AS Sortering, * " & _
        "FROM qryEmnearkiv_ledige_poster " & _
        "WHERE Lockedby is null " & _
        "ORDER BY Rnd([EmneNr])"
rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic