SQL Forespørgsel (der kommer intet frem)

Function FindElevsSkema
   
Dim tempSkema, ho(20,2)
Dim taeller
dim tHold

tHold = \" 01B \"

StrSQL = \"set datefirst 1 set dateformat dmy SELECT laerer, hold, fag, lokale, dwd, dh FROM skemaView WHERE hold = \'\"& tHold &\"\' AND 12 = dw and dy=2001 order by dwd, dh\"
end function

i tmpsite.asp kalder jeg sådan her:
Dim tmpSkema

tmpSkema = FindElevsSkema

lngUBound = Ubound(TmpSkema,1)

Men der kommer intet ud når jeg response.writer. Der er noget i db\'en og når jeg sætter uge istedet for hold, så kommer de rigtige data. Hvad dælen laver jeg fejl?
FOR tal = 0 to lngUbound
    Response.Write tmpSkema(tal,0)
NEXT