Public Sub AddCCNumber()
    Dim oRec As CRecord
    Set oRec = New CRecord
       
    oRec.Init REApplication.SessionContext
    oRec.Load 280
   
    With oRec.CreditCards.Add
        .Fields(CREDITCARD_fld_NUMBER) = "4111111111111111"
        .Fields(CREDITCARD_fld_TYPE) = "Visa"
        .Fields(CREDITCARD_fld_CARDHOLDERNAME) = "John Q Test"
        .Fields(CREDITCARD_fld_EXPIRES) = "02/2012"
    End With
   
    oRec.Save
   
    Set oRec = Nothing
   
End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.