DIM oDataPak AS Int__crtDataPak
    DIM s AS STRING
    DIM s2 AS STRING
    DIM res AS STRING

    oDataPak = NEWCOM "rtDataPk.crtDataPak"

    s = UCODE$("Name")
    s2 = UCODE$("Russ")
    oDataPak.PropSet__Data(s) = s2
    
    res = ACODE$(oDataPak.PropGet__Data(s))
    MSGBOX res

    DIM FieldName AS STRING
    DIM FieldValue AS STRING
    DIM v1, v2 AS VARIANT
    DIM l AS LONG
    
    FieldName = UCODE$("Name")
    FieldValue = UCODE$("Russ")

    v1 = BYREF FieldName
    v2 = BYREF FieldValue 

    DIM o AS IDISPATCH
    o = NEWCOM "rtDataPk.crtDataPak"
    
    OBJECT CALL o.Append(v1, v2)