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