Property Fields as ADODB.Fields
read-only
HRESULT get_Fields(Fields** pVal);

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg as New CDO.Message
Dim collFields as Fields
Set collFields = iMsg.Fields

If collFields.Count = 0 Then
  MsgBox "Fields collection is empty"
Else
  MsgBox "Message has " & collFields.Count & " fields"
End If