I am retrieving table names using ADOX, but any tables that are within a schema other than DBO are not listed.
Sub ListTablesADOX()
Dim Conn As New ADODB.Connection
'Open connection you want To get database objects
Conn.Provider = "MSDASQL"
Conn.Open "DSN=...;Database=...;", "UID", "PWD"
'Create catalog object
Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveConnection = Conn
'List tables And columns
Dim Table As ADOX.Table
For Each Table In Catalog.Tables
Debug.Print Table.Name
Next
End Sub