Visual Basic - Otro problema. Es un no parar

wenas de nuevo peña. os explico tengo un programa que mediante dao controla una bbdd de access.

me podria decir alguien como puedo hacer para que cuando le doy a un boton me introduzca el nombre de cada tabla en un combo box???

la cuestion es que cuando le de a cargar me cargue todos los nombres en un combo box y asi poder trabajar con la tabla elegida.

muchas gracias

Dim td As TableDef
For Each td In MiDB.TableDefs
If td.Attributes = 0 Then
Combo1.AddItem td.Name
End If
Next
Nota: se supone que MiDB es la base Access que has conectado con el método OpenDatabase de DAO
Saludos