arbol en asp no me funciona si parent es texto

[necora01]

De principio estoy empezando en esto de asp por lo que ser pacientes conmigo por favor. He encontrado un árbol basado en omentree. la BBDD tiene los campos text (para el nombre) key (para el usuario) y parent (para identificar el padre). necesito que el campo parent y key no sean numericos sino texto. si los cambio no me funciona el codigo he intentado revisar y poner ' en varios sitios porque se supone que tendría que decirle a las consultas que es texto pero no consigo resultados ¿me podeis ayudar? (pongo cacho de codigo que creo que está mal


Function nodelist(parent)
SQLStmt = "SELECT key, parent, text FROM Nodes WHERE parent=" & parent & ""
Set RS = Connection.Execute(SQLStmt)
Do While Not RS.EOF

tempID = RS("parent")
If tempID = 0 Then tempID = 1
Set RSTemp = Connection.Execute("SELECT key, parent, text FROM Nodes WHERE parent=" & RS("key"))
If RSTemp.EOF = False Then
If RS("parent") = 0 Then 'this one's directly below the Root
txtjscript = "treeData.add(new FolderNode(""_" & Trim(RS(0)) & """,""root"",""" & Trim(RS(2)) & ""","""","""",""page2.asp?nodeId=" & RS(0) & """," & RS(0) & "));"
Else
txtjscript = "treeData.add(new FolderNode(""_" & Trim(RS(0)) & """,""_" & RS(1) & """,""" & Trim(RS("text")) & """,""img-folder-closed-1.gif"",""img-folder-open-1.gif"",""page2.asp?nodeId=" & RS(0) & """," & RS(0) & "));"
End If
Else
If RS("parent") = 0 Then 'this one's directly below the Root
txtjscript = "treeData.add(new FolderNode(""_" & Trim(RS(0)) & """,""root"",""" & Trim(RS(2)) & """,""img-folder-closed-fav.gif"",""img-folder-closed-fav.gif"",""page2.asp?nodeId=" & RS(0) & """," & RS(0) & "));"
Else
txtjscript = "treeData.add(new LinkNode(""_" & RS(1) & """,""" & Trim(RS(2)) & """,""page2.asp?nodeId=" & RS(0) & ""","""",""img-page.gif""," & RS(0) & "));"
End If
End If
Mainjscript = Mainjscript & txtjscript & vbCrLf
Set RSTemp = Nothing

xNodes = xNodes + 1
nodeindent = nodeindent + 1
nodelist RS(0)
nodeindent = nodeindent - 1
If xNodes >= nNodes Then 'Just to be on the save side
Exit Do
Exit Function
End If
RS.MoveNext
Loop
End Function