Return a recorset with a function

[FrancisC]

I am trying to write a function that will return a recordset:

Property Get QueryResult() As Recordset

Dim ado as New Recordset

'Other declarations and execution of the query here

QueryResult = ado

End Property


The line 'QueryResult = ado' gives me an error: 'Inalid use of Property'. Can someone tell me how I can pass this recordset as a variable ?

Thanks

[Jaguar]

You need to use the set command. This is because the function is supposed to return an object, therefore you need to use "Set QueryResult = ado"

I have used this exact principle in my program, here is the code.

Public Function RecordsetEx(ByVal Source As String, _
          conn As Object, _
          Optional ByVal CursorType As CursorTypeEnum = adOpenUnspecified, _
          Optional ByVal LockType As LockTypeEnum = adLockUnspecified, _
          Optional ByVal Options As Long = -1) As Object
    If conn Is Nothing Then
        MsgBox "Nothing can be done because an active _
          connection object has not been supplied.", vbInformation
        Exit Function
    End If
    Set RecordsetEx = New ADODB.Recordset
    RecordsetEx.Open Source, conn, CursorType, LockType, Options
End Function,