OPEN DATABASE (HOME(2) + "NORTHWIND\NORTHWIND.DBC") lcFieldName = "City" lnTables = ADBOBJECTS(laTables, "TABLE") FOR lnI = 1 TO lnTables USE (HOME(2) + "NORTHWIND\" + laTables(lnI)) ALIAS "Tmp" lnFields = AFIELDS(laFields, "Tmp") IF ASCAN(laFields,lcFieldName,1,ALEN(laFields,1),1,9) > 0 ? DBF("Tmp") ENDIF ENDFOR