Сетуация такая:
Каждый клиент хочет называть имена столбцов по своему. Данные берутся из *.ini.
Требуется поменять текст в Text Object.
В документации рыля, но он какая-то обрывачная.
Делую так:
[code]

Private CrAppl As New CRPEAuto.Application
Private CrRep As CRPEAuto.Report
Private CrDB As CRPEAuto.Database
Private CrTables As CRPEAuto.DatabaseTables
Private CrTable As CRPEAuto.DatabaseTable

Private CrSections As CRPEAuto.Sections
Private CrSection As CRPEAuto.Section
Private CrReportObjs As CRPEAuto.ReportObjects
Private CrTextObj As CRPEAuto.TextObject


Private AdoRs As New ADODB.Recordset
Private cnnCon As New ADODB.Connection
'--------------------------------------

Public Function SetParam() As Boolean
    Dim X As Integer
    Dim Y As Integer
    Dim Z As Integer
    
    Set CrSections = CrRep.Sections
    For X = 1 To CrSections.Count
        Set CrSection = CrSections.Item(X)
        Set CrReportObjs = CrSection.ReportObjects
        For Y = 1 To CrReportObjs.Count
            If CrReportObjs.Item(Y).Kind = crTextObject Then
                Set CrTextObj = CrReportObjs.Item(Y)
                 ' что дальше делать не пойму :xz: 
            End If
        Next
    Next
End Function