This code will list all the tables in your database.
This code would be good if you wish to export your
records.

Start a new project and add a list box and command
button. Then cut and paste the code below.


========================================================

Private Sub Command1_Click()
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
Dim dbname As String
' Open the database. replace "\Biblio.mdb" with your
' database file name

Set db = OpenDatabase(App.Path & "\Biblio.mdb")
' List the table names.
For Each td In db.TableDefs
' if you want to display also the system tables, replace the line
' below with: List1.AddItem td.Name
If td.Attributes = 0 Then List1.AddItem td.Name
Next td
db.Close
End Sub