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