Using this procedure:

Sub ReadTables()

Dim tblObj As DAO.TableDef
Dim sTBLName As String
Dim bTablesFound As Boolean
Dim bAttached As Boolean
Dim nodX$
Dim bIncludeSysTables As Boolean

For Each tblObj In dbTest.TableDefs
If (tblObj.Attributes And dbSystemObject) = 0 Or bIncludeSysTables Then
sTBLName = tblObj.Name
List1.AddItem sTBLName
End If
Next

End Sub

------------------
smalig
[email protected]
smalig.tripod.com