If objRS.RecordCount > 0 Then
       While Not objRS.BOF And Not objRS.EOF
             ReDim arrColumns(objRS.Fields.Count - 1, 4)

             For Each objField In objRS.Fields
                 arrColumns(i, 0) = objField.Name                  'Column Name
                 arrColumns(i, 1) = ""                             'Column Value (Typically blank at this point)
                 arrColumns(i, 2) = objField.Type                  'Column Data Type
                 arrColumns(i, 3) = objField.DefinedSize           'Column Width (String,Char,Varchar)
                 arrColumns(i, 4) = "" 'objField.adFldIsNullable

                 i = i + 1
             Next

             objRS.MoveNext
       Wend
    End If