How to return ADODB.Recordset from function procedure

Question

I am trying to create the function procedure that retrieves the data from db using ActiveX Data Object LIbrary.
This function returns the value of which type is ADODB.Recordset,but the error occurs in the statement that returns the value.
The code is as follow:

---

Private Function ExecuteQuery(ByVal query As String) As ADODB.Recordset
On Error GoTo Exception

Dim connection as ADODB.connection
Dim command as ADODB.command : Set command = new command
Set connection = CurrentProject.connection
command.ActiveConnection = connection
command.ActiveConnection.CursorLocation = adUseClient
command.CommandText = query
Set ExecuteQuery = command.Execute()

Exception:
DisConnect
MsgBox Err.Description
Err.Raise (Err.Number)
Exit Function
End Function

---

The above code causes the error in the statement:"Set ExecuteQuery = command.Execute()" ,and error number is 5
Any help on this would be appreciated.

Answer 1

Maybe you must add 'Exit Function' after the 'Set ExecuteQuery = command.Execute()' line?