[Resolvido]Ocultar objetos do banco de dados

Boa tarde amigos!

Tenho um formulário onde posso mexer com as tabelas de outros bd ocultando-as

Para Ocultar

Dim DB As Database
If IsNull(Me!caminho) Then
MsgBox "Localização Inválida", vbInformation, "É necessário selecionar um arquivo"
Else
Set DB = OpenDatabase(caminho)
For Each Tb In DB.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End If


Para Exibir

Dim Tb As TableDef
Dim appAccess As Access.Application
Dim DB As Database
Set DB = OpenDatabase(caminho)
For Each Tb In DB.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next


E gostaria de transformar esse comando para ocultar Consultas,
Será que os amigos podem me ajudar.

Boas Joao Afonso..

Nas salas de repopsitorio temos os codigos bem como exemplos para tal!


Cumprimentos

http://maximoaccess.forumeiros.com/t144-resolvidosocultar-esconder-consultas

Obrigado Harysohn e João Paulo pela ajuda, deu tudo certo.

Obrigado pelo retorno o forum agradece.