Create Recordset Function error: Invalid Use of Property

[NaughtyZute]

I'm trying to consolidate all my recordset creation to this function. Passing in a SQL string and returning the recordset. I'm getting an error: Invalid use of property...

Public Function fnGetRst(sSQL As String) As Recordset
Dim db As dao.Database
Dim rs As dao.Recordset
 
On Error Resume Next
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sSQL)
 
    fnGetRst = rs
 
    rs.Close
    db.Close
 
    Set rs = Nothing
    Set db = Nothing
 
End Function
 
 

Here's how I'm calling it (in this instance populating a combo box):

strSQL = "SELECT * FROM qry_DeptDivision WHERE [DEPT_ID] = " & cboDepartment.Value
Set Me.cboDivision.Recordset = fnGetRst(strSQL)
 

[ADezii]

1. Function Definition (simplest State):
   

   Public Function fnGetRst(sSQL As String) As DAO.Recordset
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
    
   Set db = CurrentDb
   Set rs = db.OpenRecordset(sSQL)
    
   Set fnGetRst = rs
   End Function

2. Sample Function Call:
   

   Dim rstRet As DAO.Recordset
   Dim strMsg As String
    
   Set rstRet = fnGetRst("SELECT * FROM tblEmployees WHERE [Zip] = 19145")
    
   rstRet.MoveLast
    
   strMsg = "Record Count: " & rstRet.RecordCount & vbCrLf & vbCrLf & _
            "Last Employee in Zip: " & rstRet![First] & " " & rstRet![Last]
    
   Debug.Print strMsg
    
   rstRet.Close
   Set rstRet = Nothing

3. Sample OUTPUT:
   

   Record Count: 2
    
   Last Employee in Zip: Fred Flintstone

[NaughtyZute]

Thanks! Dang. I wasn't setting the return on the function. I really appreciate the help!

[ADezii]

You are quite welcome. It's always the little things that we miss.