Visual Basic - Tabledefs...

tengo varios control data DAO y el sig codigo es para saber cuantas tablas tengo en total

Private Sub Command4_Click()
Dim Z As Byte
Z = Data1.Database.TableDefs.Count
For x = 0 To Z - 1
Combo3.AddItem Data1.Database.TableDefs(x).Name
Next
End Sub

Se agrega ademas de las que yo cree estas, y yo lo que quiero es cargar a el combo las mias....
MSysAccessObjects
MSysACEs
MSysModules
MSysModules2
MSysObjects
MSysQueries
MSysRelationships

Estan son tablas que el sistema utiliza internamente, puedes trocear la cadena ya que como puedes comprobar todas las tablas comienzan por "MSys" con la función MID ó otra parecida.

Saludos Pola