Rekursiv funktion giver "Exception occured"

Jeg har en rekursiv funktion i et adresse-kartotek, som angiveligt skal undersøge om en gruppen eller dens undergrupper indeholder personer

Dim Tom

function members(AdressCategoryID)
    SQL = "SELECT AdressCategoryID FROM AdressCategory WHERE ParentAdressCategoryID = "& AdressCategoryID &""
    set rs = Myconn.Execute(SQL)
       
        do while not rs.EOF   
          members(rs("AdressCategoryID"))
          rs.movenext
        loop
          SQL2 = "SELECT AdressPropertiesID FROM AdressProperties WHERE AdressPropertiesAdressCategoryID_FK = "& AdressCategoryID &""
          Set rsPersons = Myconn.Execute(SQL2)
              if not rsPersons.eof then
              Tom = "No"
            end if                   
          rsPersons.Close
          Set rsPersons = Nothing
      rs.Close
      Set rs = Nothing
end function

members(AdressCategoryID)

if Tom = "No" then
    response.write "Der findes personer"
else
    response.write "Gruppen/grupperne er tomme"
end if

Men jeg får fejlen "Exception occured" og der henvises til linien "SQL2 = "SELECT AdressPropertiesID FROM ...."
Nogen der kan gennemskue problemet????