Elmer,
Forgot to tell you - using that process, it also gives you the system tables. If you want to eliminate them from your list box - Try this:
For Each obj In dbs.AllTables
if obj.name like "*Msys*" then
else
listbox.additem obj.Name
end if
Next obj
Hope that works for you.
Kevin
dartcoach
|