tabla o vinculo??

[soilo]

Hola y gracias de antemano,
tengo un modulo que me rellena un combo con las tablas de una base de datos que le indique pero no me diferncia si es tabla o vinculo. Alguien sabe como diferenciarlo??, el modulo es el siguiente:

Dim ObjCat As ADOX.Catalog
Dim Tablas As ADOX.Tables
Dim Tabla As ADOX.Table
Dim Existe As Boolean
Set ObjCat = New ADOX.Catalog
ObjCat.ActiveConnection = cn
'Colección con las tablas
Set Tablas = ObjCat.Tables

'Recorre las tablas y las agrega al combo

For Each Tabla In Tablas
combo1 additem tabla
Next
Set ObjCat = Nothing

Gracias