Hi,

My code list all database tables. I have many clients with the code working OK. I´m using the ADOX.Catalog () and a code sample is below:

Dim conn As ADODB.Connection
Dim tbls As ADOX.Catalog
Dim tbl As ADOX.Table

    Set conn = New ADODB.Connection

        conn.Provider = "Microsoft.Jet.OLEDB.4.0"
        conn.Properties("Jet OLEDB:Database Password") = "password"
        conn.Open "Data Source = " & database_path

        Set tbls = New ADOX.Catalog
        Set tbls.ActiveConnection = conn

        For Each tbl In tbls.Tables

      If tbl.Name = "" then
        Debug.print "Nothing"
          Else
        Debug.print tbl.Name
          End if

    Next

Some days ago, some clients (precisely 2) presented a problem: none table is list.

I have been looking for a solution to this problem for about two weeks, and I haven´t found nothing yet.

Does anybody knows anything about this problem?

Thanks in advance for any help,

Raphael