excel vba ADOX.Column append column adBoolean error code example

Example: excel vba ADOX.Column append column adBoolean error

'To add to an ADOX table a column of type adBoolean 
'the Attributes property MUST NOT be set to adColNullable.

'This will cause a:
'Run-time error '-2147217887 (80040e21)':
'Multiple-step OLE DB operation generated errors. Check each OLE DB
'status value, if available. No work was done.

'And the Boolean column will NOT be appended to the table.

'The solution is to set the column Attributes property to one of the 
'two following values:
.Attributes = 0	'Default Attributes property value
.Attributes = 1	'adColFixed

'Again, an adBoolean column cannot have the following Attirbutes
'property value. This will raise the Run-time error above:
.Attributes = 2	'adColNullable