For items 1 & 2 and assuming the datasource administrator is a directory I
would use a combobox and under references select Microsoft Scripting Runtime.

dim fso as New FilesystemObject
dim f as File
dim fld as folder

set fld = fso.GetFolder([path])
for each f in fld.files
if ucase$(right$( = "MDB"
end if

set fld = nothing
set fso = nothing

For item 3 and looping through the tables I would recommend the Microsofts
ADOX object. It is under references in same area as the ActiveDataObjects
except look for one with dll & security in the name.

If memory serves me correct, you will need to open schema or catalog on the
datasource. It has been a while and I doing all of this from memory. I think
it is catalog

dim cn as new adodb.connection
dim cat new adox.catalog
dim tbl as adox.table [connect string]
set cat.activeconnection = cn
for each tbl in cat.tables
set cat = nothing
set cn = nothing

You will still need to filter out the system table names, the msys... tables
i think.

hope this helps

"Jan" <> wrote:
>Application development with VB & MS-Access
>I want to view all the tables in .mdb databse file, from a control on VB.
>1.Wish to display all the .mdb files in the datasource administrator.
>2.Wish to select the particular .mdb file.
>3.On selection of a particular .mdb file, wish to display all the tables
>of it.
>Thanks in advance