Function STARTR()

Dim cat As New ADOX.Catalog

Dim objtab As ADOX.Table

cat.ActiveConnection = CurrentProject.Connection

For Each objtab In cat.Tables

Debug.Print objtab.name

Next

End Function