Visual Basic - Problamas con DAO

Quiero cargar todas las tablas de una base de datos de access en un combo para luego trabajar con ellas. Utilizo la coleccion TableDefs de la base de datos de la siguiente manera:

Dim Dbperfiles as database
Dim Tabla as tabledef
.
.
.
For each tabla in dbperfiles.tabledefs
.
.
Next

El problema es que al inicio del bucle me da error. Que es lo que hago mal? Gracias por adelantado.

prueba con esto, esta hecho con DAO 3.5 y Access 97

Dim BD As Database
Dim T As TableDef
Private Sub Form_Load()
ruta = App.Path & "\"

Set BD = OpenDatabase(ruta & "control.mdb")

For Each T In BD.TableDefs
List1.AddItem T
Next
End Sub

Muchas gracias por la respuesta. Ya me funciona, aunque yo tengo que usar la propiedad name de la tabla, porque si no me da error, quedaria algo así.

For Each T in BD.Tabledefs

Muchas gracias por la respuesta. Ya me funciona, aunque yo tengo que usar la propiedad name de la tabla, porque si no me da error, quedaria algo así.

For Each T in BD.Tabledefs
List1.AddItem T.Name
Next

De esta manera me incluye todas las tablas en la lista, pero me pone también otras tablas que no existen en la base de datos:

Msysobjects
Msysrelationships
MsysQueries

Y alguna otra mas...

La base de datos solo tiene 5 tablas, sin relaciones ni consultas.

Alguien que sepa como evitar estas tablas inexistentes?

no es q no exista, sino q son interna de la BD
aqui está la repuesta
Dim BD As Database
Dim T As TableDef
Private Sub Form_Load()
ruta = App.Path & "\"

Set BD = OpenDatabase(ruta & "control.mdb")

For Each T In BD.TableDefs
If Not T.Attributes = -2147483648# And Not T.Attributes = 2 Then
List1.AddItem T.Name
End If
Next
End Sub