[Resolvido]Cx Combinação ocultar nome de tabela especifico.

Boa noite amigos
Tenho este código que me mostra numa caixa de combinação todas as tabelas de uma BD.
Queria que a caixa de combinação oculta-se 2 tabelas dessa BD com os nomes:

"Autor"
"Produtos"

Obrigado

Public Function MostraTabelas() As String
On Error Resume Next
Dim strData As String
Dim td As TableDef
For Each td In CurrentDb.TableDefs
If td.Attributes And dbSystemObject Then
'ignora as tabelas de sistema MSys*
Else
strData = strData & td.name & ";"
End If
Next td
MostraTabelas = strData
End Function

Mude apenas esta linha:

de:
If td.Attributes And dbSystemObject Then

Para:

If td.Attributes And dbSystemObject Or td.Name = "Autor" Or td.Name = "Produtos" Then


Deverá resolver...

Obrigado Fabio

Perfeito