Create Excel spreadsheet with Microsoft Access table info

[crowegreg]

I'm trying to create a spreadsheet which lists all the tables within my DB. Within the table properties, their is a description. How do I find that within VBA code.


Here's what I have so far:
Dim lTbl As Long
Dim lFld As Long
Dim dBase As Database
Dim xlApp As Object
Dim wbExcel As Object
Dim lRow As Long

'Set current database to a variable and create a new Excel instance
Set dBase = CurrentDb
Set xlApp = CreateObject("Excel.Application")
Set wbExcel = xlApp.workbooks.Add

'Set on error in case there are no tables
On Error Resume Next

lRow = 1

'Loop through all tables
For lTbl = 0 To dBase.TableDefs.Count
'If the table name is a temporary or system table then ignore it
If Left(dBase.TableDefs(lTbl).Name, 1) = "~" Or _
Left(dBase.TableDefs(lTbl).Name, 4) = "MSYS" Then


'~ indicates a temporary table
'MSYS indicates a system level table
Else
'Otherwise, loop through each table, writing the table and field names
'to the Excel file
lRow = lRow + 1
With wbExcel.sheets(1)
.Range("A" & lRow) = dBase.TableDefs(lTbl).Name
End With
End If
Next lTbl
'Resume error breaks
On Error GoTo 0

'Set Excel to visible and release it from memory
xlApp.Visible = True
Set xlApp = Nothing
Set wbExcel = Nothing

'Release database object from memory
Set dBase = Nothing

[crowegreg]

I figured it out. Here's what I needed to add to my code:

.Range("B" & lRow) = dBase.TableDefs(lTbl).Properties("Description").Va lue