Local oComUtil, oRS, oCn, i, oTable, lcCursor Local lcMDBPath, lcMDBStr, oCat lcMDBPath = "C:\Program Files\Microsoft Visual Studio\VB98\NWind.mdb" lcMDBStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + lcMDBPath + ";" Clear ? oComUtil = Create("vfpcom.comutil") oCat = Create("adox.Catalog") oCn = Create("adodb.Connection") oRS = Create("adodb.Recordset") oRS.CursorLocation = 3 && adUseClient oRS.LockType = 3 && adOpenStatic oCn.Open(lcMDBStr) oCat.ActiveConnection = oCn i = 0 For Each oTable In oCat.Tables If oTable.Type = "TABLE" Then lcSrc = "[" + oTable.Name + "]" oRS.Open(lcSrc, oCn) oComUtil.RSToCursor(oRS) ? oTable.Name lcCursor = Alias() ?? " Rows:", RecCount((lcCursor)), "Fields:", FCount((lcCursor)) oRS.Close() BROWSE NOWAIT NAME oBrowse oBrowse.Left = 20 * i oBrowse.Top = 20 * i i = i + 1 Endif Next oCn.Close