Returnering af værdi fra funktion...

Hej

Kan nogen sige hvor det ikke er muligt at returnere værdien fra nedenstående funktion?

Jeg ønsker at hente værdien af \"nID\" når \"nParrentID=0 \"

Function FindTopLevel(id)   
Dim SQL,objRec, nParrentID,nID
SQL = \"Select id,parentID from indlaeg WHERE id=\"&id&\"\"

Set ObjRec = objConn.Execute(SQL)

nID = objRec(\"id\")
nParrentID = objRec(\"parentID\")

IF nParrentID<>0 THEN
    FindTopLevel(nParrentID)
ELSEIF nParrentID=0 THEN
    FindTopLevel=nID
END IF

End Function