[DavidZ]

Ivan,

To add attributes you need a new SetupBatchField function specfically for attributes. Something like the following:

 
Private Sub SetupBatchAttributeField(ByVal oBatchField As CBatchField, ByVal lAttributeField As EattributeFields)
    With oBatchField
        .Fields(BatchField_fld_MetaObjectId) = bbmoGIFT_ATTRIBUTE
        .Fields(BatchField_fld_FieldNumber) = lAttributeField 
    End With
End Sub

Let me know if you need any more help

David