Dim obj  As AccessObject
    Dim prop As AccessObjectProperty
    
    Dim strTmpPath As String
            strTmpPath = Environ$("TEMP")
    
    'Queries'
        For Each obj In Application.CodeData.AllQueries

             If obj.Properties("Description") Like strDescription & "*" Then
                    Debug.Print obj.Name
                    'Application.SaveAsText acQuery, obj.Name, strTmpPath & "\" & obj.Name'
             End If
        Next obj
        
     'Forms'

     For Each obj In Application.CodeProject.AllForms
            
             If obj.Properties("Description") Like strDescription & "*" Then
                    Debug.Print obj.Name
                    'Application.SaveAsText acForm, obj.Name, strTmpPath & "\" & obj.Name'
             End If
        Next obj
End Sub