>I have a funcion in class module that returns an ADODB.Recordset. I understand the theory behind this. My problem is that I do not know how to return the recordset to the calling sub. Here is the inf:
>
>Public Function GetRS(SQL As String) As ADODB.Recordset
> 'SET THE CONNECTION STRING PROPERTY TO A VALID CONNECTION STRING
> 'PASS AN SQL STATEMENT TO THIS FUNCTION
> 'THE RETURN VALUE WILL BE AN ADODB RECORDSET
>
> Dim rs As New ADODB.Recordset
> On Error GoTo LocalError
> With rs
> .ActiveConnection = ConnectionString
> .CursorLocation = adUseClient
> .LockType = adLockOptimistic
> .CursorType = adOpenKeyset
> .Source = SQL
> .Open
> Set .ActiveConnection = Nothing
> End With
> Set GetRS = rs
> Set rs = Nothing
>Exit Function
>LocalError:
> m_sLastError = Err.Number & " - " & Err.Description
> Set rs = Nothing
>End Function
>
>What do I need to do in the calling function to return the recordset? I tried to declare a recordset and do something like:
>
>rst = GetRS(strSQL)
>
>This is not work. Said invalid use of property or something.
>Anyone have some help?

This call should work:

Dim oRS As ADODB.Recordset
Set oRS = getRS(myCnString)

HTH