Private Sub LoadBySSN()

    Dim oRec As CRecord
    Set oRec = New CRecord
    Dim sSSN As String
    lSSN = 555555555
    oRec.Init REApplication.SessionContext
    'oRec.Load 761
    oRec.LoadByField uf_Record_SOCIAL_SECURITY_NO, lSSN

    Debug.Print oRec.Fields(RECORDS_fld_FIRST_NAME) & " "; oRec.Fields(RECORDS_fld_LAST_NAME)
    Debug.Print oRec.Fields(RECORDS_fld_SOCIAL_SECURITY_NO)

    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.