How to return the value from function - vb6

Question

How to return the value from function
Code
Private Function LeaveCheck(empid As String)
Dim rdoRs1 As rdoResultset
Dim desc As String
Dim sSQL As String
sSQL = "Select name from table1 wher empcode = '" & empid & "'"
Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic)
If rdoRs1.RowCount > 0 Then
desc = rdors1!name
return desc 'Showing error in this line
End If
rdoRs1.Close
End Function
How to return the value from the above code.
Need Vb6 code Help

Answer 1

You need to specify your return type.
Private Function LeaveCheck(empid As String) As String ' Notice the As String
Dim rdoRs1 As rdoResultset
Dim desc As String
Dim sSQL As String
sSQL = "Select name from table1 wher empcode = '" & empid & "'"
Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic)
If rdoRs1.RowCount > 0 Then
desc = rdors1!name
End If
rdoRs1.Close
LeaveCheck = desc ' This will be blank or populated
End Function
Here is a link that is a good read for understanding Functions in VB6
EDIT
After reading your comment, I would create a class to store your values.
Public Class MyClass
Dim name As String
Dim dept As String
Dim country As String
End Class
Then, you can instantiate a new instance of this class inside of your code:
Private Function LeaveCheck(empid As String) As MyClass
Dim myClass As New MyClass
Dim rdoRs1 As rdoResultset
Dim sSQL As String
sSQL = "Select name, dept, country from table1 wher empcode = '" & empid & "'"
Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic)
If rdoRs1.RowCount > 0 Then
myClass.name = rdors1!name
myClass.dept = rdors1!dept
myClass.country = rdors1!country
End If
rdoRs1.Close
LeaveCheck = myClass
End Function

Answer 2

You need to set the value to the function name and the return type:
Private Function LeaveCheck(empid As String) As String
Dim rdoRs1 As rdoResultset
Dim desc As String
Dim sSQL As String
sSQL = "Select name from table1 wher empcode = '" & empid & "'"
Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic)
If rdoRs1.RowCount > 0 Then
desc = rdors1!name
End If
rdoRs1.Close
LeaveCheck = desc
End Function
See this document for more information.

Answer 3

Function returnArray() As Variant
RTA[ab]=0
if a=b then RTA[ab]=1
RTA[xy]=0
if a=b then RTA[xy]=1
returnArray=RTA
end function