This property indicates the number of fields in a recordset.
fields.Count
Dim rs Set rs = CreateObject("adoce.recordset") rs.Open "MSysIndexes" MsgBox rs.Fields.Count rs.Close Set rs = Nothing