Using DAO to return field names in a listbox

What I need to do is return the names of system tables, non-system tables, queries and relationships to a list box. I am getting no results whatsoever. Here is my code:

Dim strPath As String
strPath = cmDBDialog.FileName
Dim intTableindx As Integer

Dim db As DAO.Database
Dim tbl As DAO.TableDef

tbl.CreateIndex [intindex]


'Sets the db variable to the currently open database

Set db = DAO.OpenDatabase(strPath)

' Loop through the tables in the database and adds their name
' to the lstSystable listbox

tbl(intindex) = 0
Do
lstSystable.AddItem tbl.Name & tbl.Attributes
Loop Until intindex = 0


If anyone could help it would be greatly appreciated. Thanks

Try doing it this way:

For Each tbl In MyDB.TableDefs
List1.AddItem tbl.Name
Next

.