标题：如何通过自定义函数，取数据库字段，并返回序列数据？

下面这段代码可以取到数据库中的字段，但无法做为自定义函数的值返回，请教一下为什么？应该如何改？
Function ZYYXYZYQ(Formula,N)

    ZYYXYZYQ=0
Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open"Provider=MSDAORA.1;Password=***;User ID=user;Data Source=fdc"

str="SELECT * from zyyxdb.GG_ORG_LIST"
adoConn.Execute(str)

Set rstTmp=CreateObject("ADODB.RecordSet")
rstTmp.open str,adoConn

  Dim aa
  Redim aa(UBound(N))

aa=rstTmp("ORG_CLASS")
ZYYXYZYQ=aa
'call application.MsgOut(aa)