Re: I cant get the description or default value of a field

Set Rs = Cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, TableName,
Empty))
    Do While Not Rs.EOF
        Debug.Print Rs("ORDINAL_POSITION")
        Debug.Print Rs("COLUMN_NAME")
        Debug.Print Rs("DATA_TYPE")
        Debug.Print Rs("COLUMN_DEFAULT")
        Debug.Print Rs("IS_NULLABLE")
        If IsNull(Rs("CHARACTER_MAXIMUM_LENGTH")) = False Then
                Debug.Print Rs("CHARACTER_MAXIMUM_LENGTH")
                Debug.Print "0"  '** Num_scale=0
        Else
                Debug.Print Rs("NUMERIC_PRECISION")
                Debug.Print Rs("NUMERIC_SCALE")
        End If
        Debug.Print Rs("DESCRIPTION")
        Debug.Print Rs("DISPLAY_SIZE")
        Debug.Print Rs("COLUMN_HASDEFAULT"), Rs("COLUMN_DEFAULT")
    Rs.MoveNext
    Loop
Call RsClose