I know I am all over the map on this one so please forgive me...I would like to return the record count of a Query. Sounds simple enough but I'm getting error etc.

Public Function IsValidUser()
    Dim t_RecSet_user As Recordset, db As DAO.Database, qdf As DAO.Recordset, No_Recs As Integer
    Dim QueryName As String
    
    QueryName = "User_Access"
    
    Set db = CurrentDb
    'Set qdf = db.OpenRecordset(QueryName)
    'qdf.MoveLast
    
    DoCmd.OpenQuery "user_access"
    
    'No_Recs = DCount("*", "User_Access")
    
    'No_Recs = qdf.RecordCount
    
    Set qdf = Nothing
    Set db = Nothing
       
   ' Set t_RecSet_user = CurrentDb.OpenRecordset("select * from case_mgr where case_mgr.[casemgr_userid]='" & t_UserId & "';")
        
   
    If No_Recs > 0 Then
        't_RecSet_user.MoveLast
        IsValidUser = "Yes"
        MsgBox "you are validated to access system" & " " & UCase(t_UserId)
    Else
        IsValidUser = "No"
        MsgBox "you are not validated to access system" & " " & UCase(t_UserId)
    End If
        
    'Set t_RecSet_user = Nothing
   
(returnusername)
End Function