Public Sub AddAuditRecord()
'  Adding an audit record
        
    Dim ARAdder As IAuditRecordAdder
    Dim ARData As AuditRecordData
          
    
    ' retrieve the AuditRecordAdder from the connection
    Set ARAdder = tdc.AuditRecordFactory
      
    ' create an instance of AuditRecordData
    Set ARData = New AuditRecordData
      
    ' fill the new AuditRecordData object with data
    ARData.action = "CA_TestAction"
    ARData.entityID = "10"
    ARData.entityType = "TEST"
    ARData.Description = "This is a test of IAuditRecordAdder."
     
    ' create new Audit Record by passing the AuditRecordData object to the AuditRecordAdder
    ' Note: the invocation of AddAuditRecord causes immediate roundtrip
    ARAdder.AddAuditRecord ARData
    
End Sub