◆函数返回多个值的有关问题

◆函数返回多个值的问题
是这样的，我需要返回四个值来执行程序，我是这样写的，但是执行不出来。

Function   urlclass(ByVal   classnb)
newid   =   classnb
sqla   =   "select   *   from   url   where   id= "&   newid   & "   "
rsa.Open   sqla,   conn,   1,   1
urla   =   rsa( "urla ")
urlb   =   rsa( "urlb ")
urlc   =   rsa( "urlc ")
urld   =   rsa( "urld ")
rsa.Close
End   Function

Sub   writehtml6(ByVal   outid)
sortid   =   outid
sqla   =   "select   *   from   product   where   productsort= "   &   sortid   &   "   "
conn.Open   ConnectString
rs.Open   sqla,   conn,   1,   1

Do   While   Not   rs.EOF
newid   =   rs( "id ")
call   urlclass(newid)   '调用函数来执行，并获取四个参数值，但我这样调不到，要怎么改

rs.MoveNext
Loop
rs.Close
Set   rs   =   Nothing
conn.Close
Set   conn   =   Nothing
end   sub


Private   Sub   Combo1_Click()
tid=10
Call   writehtml6(tid)
End   sub

------解决方案--------------------
Sub urlclass(ByVal classnb, ByRef urla, ByRef urlb, ByRef urlc, ByRef urld)
sqla = "select * from url where id= " & classnb & " "
rsa.Open sqla, conn, 1, 1
urla = rsa( "urla ")
urlb = rsa( "urlb ")
urlc = rsa( "urlc ")
urld = rsa( "urld ")
rsa.Close
End Sub

Sub writehtml6(ByVal outid)
dim Urla, Urlb, Urlc, Urld
sortid = outid
sqla = "select * from product where productsort= " & sortid & " "
conn.Open ConnectString
rs.Open sqla, conn, 1, 1

Do While Not rs.EOF
newid = rs( "id ")
Call urlclass(newid, Urla, Urlb, Urlc, Urld)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
end sub


Private Sub Combo1_Click()
tid=10
Call writehtml6(tid)
End sub