Find keyword in recordsource of report

Private Sub btnSearch_Click()
Dim db As Database
Dim qdf As QueryDef
Dim strList As String
Dim strDelim As String
Dim strSQL As String
Dim obj As AccessObject
Dim rst As DAO.Recordset
Dim rpt As Report
 
    strSQL = "Delete * From tmpObjectsFound"
    CurrentDb.Execute (strSQL)
    
    If txtSearchFor <> "" Then
        strList = ""
        Set db = DBEngine(0).OpenDatabase(txtFrontEnd)
        
        'find any query which contains txtSearchFor
            For Each qdf In db.QueryDefs
                If InStr(qdf.SQL, Me.txtSearchFor) > 0 Then
                    If Left$(qdf.Name, 1) <> "~" Then
                        strSQL = "Insert Into tmpObjectsFound (ObjectName, ObjectType) " & _
                                    " Values ( '" & qdf.Name & "', 'Query')"
                        CurrentDb.Execute (strSQL)
                        strList = strList & strDelim & qdf.Name
                        strDelim = vbCrLf
                    End If
                End If
            Next
        
        'find any report which contains txtSearchFor in the recordsource
            strSQL = "SELECT MSysObjects.Name FROM MSysObjects WHERE (((Left([Name],1))<>'~') AND " & _
                            "((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name"
            Set rst = db.OpenRecordset(strSQL)
                While Not rst.EOF
                    Set rpt = db!Reports(rst(0))
    '                   If InStr(rpt.RecordSource, Me.txtSearchFor) > 0 Then
    '                   End if
                    rst.MoveNext
                Wend
            Set rst = Nothing
        
 
        
        If strList = "" Then MsgBox "Text not found in any queries"
    Else
        MsgBox "You did not enter text to search for"
    End If
    
    Me.txtResults.Requery
    
End Sub