[AccessD] accessing metadata

Trying to return meta data -- specifically, the Description setting of any
given field in a table. It should be easier than I'm making it -- started
here:

Dim rst As ADODB.Recordset
  Dim fld As ADODB.Field
  Set rst = CurrentProject.Connection.OpenSchema(adSchemaColumns)
  Do Until rst.EOF
    For Each fld In rst.Fields
        If Not IsNull(fld.Value) Then
            Debug.Print fld.Value & vbTab
        End If
    Next fld
  Loop

I should be able to limit the tables using criteria in the OpenSchema
method, but I haven't gotten it right yet. If there's an easier way to
approach this problem, would like to hear it.

Thanks!
Susan H.