Scripting Dictionary

Nogen der kan fortælle mig hvorfor dette ikke virker?
Fejl:
ADODB.Field fejl '80020009'

Objektet er ikke længere gyldigt.

/test.asp, linje 0

Kode:
    bCount = 0
    Dim arrBruger, arrGetData, I
    Set arrBruger = Server.CreateObject("Scripting.Dictionary")
   
    BrugerSQL = "SELECT * FROM [Bruger]"
    set rsBruger = conn.execute(BrugerSQL)
    do while not (rsBruger.BOF or rsBruger.EOF)
        if request("u"& rsBruger("id")) = "on" then
            arrBruger.add rsBruger("id"), rsBruger("navn")
            bCount=bCount+1
        end if
        rsBruger.movenext
    loop
    rsBruger.close
    set rsBruger = nothing
   
    arrGetData=arrBruger.Items
    for I=0 to arrBruger.Count-1
        Response.Write(arrGetData(I))
        Response.Write("<br>")
    next
   
    set arrBruger=nothing