Probl. med combo formfelt i Sub funktion

Jeg har en rekursiv funktion der skriver mene værdier ud i en Comboboks, her skal den tjekke på om (rid) er lig med rs2("id"), men den vil ikke gøre det !

Skriver jeg en fast værdi ind, så virker det?

Hvad gør jeg galt ?

Sub writeElements(pid,level,rid)
  Dim rs2, strSql, valgt, billede_id
  strSql = "SELECT * FROM overskrifter WHERE parrent_id=" & pid
  Set rs2 = Conn.Execute(strSql)
  If Not rs2.Eof Then
    Do While Not rs2.Eof
    If rs2("id") = rid then
        Response.Write "<option selected value="&rs2("id")&">"
    Else
        Response.Write "<option value="&rs2("id")&">"
    End If
      If level >= 1 Then
      For i = 1 to level
          Response.Write "&nbsp;.&nbsp;"
      Next
      End If
      Response.Write rs2("overskrift")
      Response.Write "</option>"
      WriteElements rs2("id"), level + 1, rid 'udskriv alle elementer under dette
      rs2.MoveNext
    Loop
  End If
  rs2.Close
  Set rs2 = Nothing
End Sub