Local laFields[1], laTables[1], lnField, lnFields, lnTable, lnTables, lcValue Close Databases All Open Database "D:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Northwind\northwind.dbc" Create Cursor ExtractedInfo (Table v(254), Field v(254), Value v(254)) Select 0 lnTables = Adbobjects(laTables, "TABLE") For lnTable = 1 To M.lnTables Use (M.laTables[M.lnTable]) lnFields = Afields(laFields) For lnField = 1 To M.lnFields lcValue = DBGetProp(M.laTables[M.lnTable] + "." + M.laFields[M.lnField, 1], "FIELD", "DisplayClassLibrary") If !Empty(lcValue) Insert Into ExtractedInfo Values (M.laTables[M.lnTable], M.laFields[M.lnField, 1], lcValue) Endif Endfor Endfor Use Select ExtractedInfo BrowseObviously you'll need to open your own database rather than the NorthWind one.