Data Shaping Problem

[lee san]

Ok, the scnenario is that, I'm creating a pay slip using VB6 Data Report Designer and MS Data Shape. For each employee, there will be some employee details like Emp. ID, Name, Department which is concealed in a parent recordset. This parent recordset has two child recordsets, one to hold renumeration paycodes with respective amounts and the other one holds deduction paycodes, with respective amounts as well. The code is like this:

    Dim arrEmp()    As String
    Dim arrRen()    As String
    Dim arrDed()    As String
    Dim arrVal()    As String
    Dim empid       As String
    Dim i2          As Integer
    Dim rsRenumeration  As ADODB.Recordset
    Dim rsDeduction     As ADODB.Recordset
    
    
    arrEmp = GetEmployeeSlipList
    If UBound(arrEmp) = 0 Then
        MsgBox "No employee record found.", vbOKOnly + vbExclamation, "Notification"
        cmdClose.SetFocus
        Exit Sub
    End If
    
    sShape = "SHAPE APPEND NEW adInteger AS emp_id, NEW adVarChar(200) AS emp_name, NEW adVarChar(200) AS group_name, NEW adDate AS paydate," _
         & " ((SHAPE APPEND NEW adInteger AS emp_id, NEW adVarChar(200) AS paycode_name, NEW adDouble AS total_amount) AS rsRenumeration RELATE emp_id TO emp_id)," _
         & " ((SHAPE APPEND NEW adInteger AS emp_id, NEW adVarChar(200) AS paycode_name, NEW adDouble AS total_amount) AS rsDeduction RELATE emp_id TO emp_id)"
    
    Set SRS = New ADODB.Recordset
    With SRS
        .Open sShape, sConn, adOpenStatic, adLockOptimistic, -1
        For I = 0 To UBound(arrEmp) - 1
            arrVal = Split(arrEmp(I), "!@", , vbTextCompare)
            .AddNew
                !emp_id = arrVal(0)
                !emp_name = arrVal(1)
                !group_name = arrVal(2)
                !payDate = Format(CDate(arrVal(3)), "dd/MM/yyyy")
            .Update
            empid = arrVal(0)
            
            arrRen = GetSlipPaycodes(empid, 0)      '0 for addition paycodes
            Set rsRenumeration = .Fields("rsRenumeration").value
            With rsRenumeration
                For i2 = 0 To UBound(arrRen) - 1
                    arrVal = Split(arrRen(i2), "!@", , vbTextCompare)
                    .AddNew
                    !emp_id = empid
                    !paycode_name = arrVal(0)
                    !total_amount = CDbl(arrVal(1))
                    .Update
                Next i2
            End With
            
            arrDed = GetSlipPaycodes(empid, 1)      '1 for deduction paycodes
            Set rsDeduction = .Fields("rsDeduction").value
            With rsDeduction
                For i2 = 0 To UBound(arrDed) - 1
                    arrVal = Split(arrDed(i2), "!@", , vbTextCompare)
                    .AddNew
                    !emp_id = empid
                    !paycode_name = arrVal(0)
                    !total_amount = CDbl(arrVal(1))
                    .Update
                Next i2
            End With
        Next I
    End With
    
    With DataRep_PaySlip_Frame
        Set .DataSource = SRS
        .DataMember = SRS.DataMember
        DoEvents
        .Show
    End With

My problem arises when it comes to this lines:

    With DataRep_PaySlip_Frame
        Set .DataSource = SRS
        .DataMember = SRS.DataMember
        DoEvents
        .Show
    End With

I've got an error telling that "DataField rsRenumeration.paycode_name not found."
I thick there is no problem on data insertion I made before those lines but who knows. Can anyone help me solve this? Because I think this suppose to be an easy report only.