vil ikke lave loop

Hej

Jeg har dette stykke kode, men af en eller anden grund vil den ikke lave en loop :-(

Den kommer med denne fejl:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

/profil/nyhedsmail/default.asp, line 20

Her er koden:
SQLfavoritter = "SELECT * FROM favoritter WHERE favoritID = "&session("id")&""
RSfavoritter = Conn.Execute(SQLfavoritter)

do until RSfavoritter.EOF

    SQLindbakke = "insert into beskeder (profilerID,afsenderID,emne,besked,statuss,udbakke,dato,tilhore) values('" & RSfavoritter("profilerID") & "','" & session("id") & "','" & request.Form("emne") & "','" & request.Form("besked") & "','1','0','" & now() & "','')"
    Conn.execute(SQLindbakke)

    SQL2 = "SELECT last_insert_id() FROM beskeder"
    Set RS = Conn.Execute(SQL2)
    beskederID = RS(0)

    strSQL = "INSERT INTO nyhedsmail (beskederID,video,billede,dato) values('"&beskederID&"','"&Request.Form("vedhaeft1")&"','"&Request.Form("vedhaeft2")&"','"&now()&"')"
    Conn.Execute(strSQL)

RSfavoritter.MoveNext
loop

Jeg kan ikke se hvorfor at den laver den fejl??!
Håber at der er en som der kan hjælpe mig.

På forhånd tak :o)
// Rene