Footer Sum

hi,

would like to find out why i can't perform formula sum and display result in footer ?
below is my code in VB6.0.


    Dim xRecord As XtremeReportControl.ReportRecord
    Dim xRecordItem As XtremeReportControl.ReportRecordItem

    DataLst.ShowFooterRows = True
   
    Set xRecord = DataLst.FooterRecords.Add
    Set xRecordItem = xRecord.AddItem("")
   
     xRecordItem.Bold = True
    Set xRecordItem = xRecord.AddItem("Total:")
   
    For i = 2 To DataLst.Columns.Count - 1
        Set xRecordItem = xRecord.AddItem("")
        xRecordItem.Bold = True
       ' xRecordItem.BackColor = vbBlack
        If i = DataLst.Columns.Count - 1 Then
            xRecordItem.Format = "%.02f"
        Else
            xRecordItem.Format = "%.0f"
        End If
        zz = "SUM(R*C" & i & ":R*C" & i + 1 & ")"
        xRecordItem.Formula = zz
       
        DataLst.Columns(i).Alignment = xtpAlignmentRight
        DataLst.Columns(i).HeaderAlignment = xtpAlignmentRight
        DataLst.ReCalc True
    Next i


if i change the about DataLst.FooterRecords.Add to DataLst.Records.Add i am able to display ...please help...