Dim iCounter, iCounter_F As Integer
      Dim objCon As ADODB.Connection
      Dim objTable As ADOX.Table
      Dim objColumn As ADOX.Column
 
      objCon = New ADODB.Connection
      objCon.Open(sConnectionString)
 
      Dim cat As New ADOX.Catalog
      cat.ActiveConnection = objCon
 
      For iCounter = 0 To (cat.Tables.Count - 1)
         objTable = cat.Tables(iCounter)
 
         If (Left((UCase(objTable.Name)), 4) <> "MSYS") Then
            Console.WriteLine("TABLENAME = " & objTable.Name)
 
            For iCounter_F = 0 To (objTable.Columns.Count - 1)
               objColumn = objTable.Columns(iCounter_F)
               Console.WriteLine("   FIELDNAME = " & objColumn.Name)
 
               Console.WriteLine("      DEFINEDSIZE = " & objColumn.DefinedSize)
               Console.WriteLine("      NUMERICSCALE = " & _
                 objColumn.NumericScale)
               Console.WriteLine("      PRECISION = " & objColumn.Precision)
               'Console.WriteLine("      RELATEDCOLUMN = " & 
               ' objColumn.RelatedColumn)
               'Console.WriteLine("      SORTORDER = " & objColumn.SortOrder)
               Console.WriteLine("      TYPE = " & objColumn.Type)
            Next
         End If
      Next
 
      objCon.Close()