Function TableList()
CurrentDb.Execute ("Delete * from TestTables")
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * from TestTables")
Dim tbf As DAO.TableDef
Dim fld As Field
For Each tbf In CurrentDb.TableDefs
For Each fld In tbf.Fields
rs.AddNew
rs!TestTableName = tbf.Name
rs!TestFieldname = fld.Name
rs.Update
Next fld
Next tbf
Set rs = Nothing
End Function