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$(f.name)) = "MDB"
combo1.additem f.name
end if
next

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

cn.open [connect string]
set cat.activeconnection = cn
for each tbl in cat.tables
debug.print tbl.name
next
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
Michael

"Jan" <ssn2719@yahoo.com> 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
>Jan.