My code before was like this: 
UpdateContext({varCopyButton: !varCopyButton,locWaiting:true});
UpdateContext(
    {
        vaNewTask: Patch(
            'Outsourcing Tasks',
            Defaults('Outsourcing Tasks'),
            {
                Service: ComboBoxServiceDialog.Selected,
                'Task Type': varSelectedTask.'Task Type',
                'Task Name': varSelectedTask.'Task Name',
                'Task Status': varSelectedTask.'Task Status',
                'Outsourcing Lead': varSelectedTask.'Outsourcing Lead',
                'Outsourcing Plan (dot_OutsourcingPlan1)': varSelectedTask.'Outsourcing Plan (dot_OutsourcingPlan1)',
                'Outsourcing Support': varSelectedTask.'Outsourcing Support',
                'CTA Contract Owner': varSelectedTask.'CTA Contract Owner',
                Supplier: varSelectedTask.Supplier,
                'Subject Matter Experts': varSelectedTask.'Subject Matter Experts',
                'LoB RFP responsible': varSelectedTask.'LoB RFP responsible',
                //
                'Initial budget currency': varSelectedTask.'Initial budget currency',
                'Initial Budget': varSelectedTask.'Initial Budget',
                '  rationale for sending REP to chosen suppliers': varSelectedTask.'  rationale for sending REP to chosen suppliers',
                'Assessment Needed': varSelectedTask.'Assessment Needed',
                'TPR Risk Due Diligence Score': varSelectedTask.'TPR Risk Due Diligence Score',
                Note: varSelectedTask.Note,
                //
                'Corporate Procurement Contact': varSelectedTask.'Corporate Procurement Contact',
                'Contract Owner CPS/TM': varSelectedTask.'Contract Owner CPS/TM',
                'Start up WO sent to supplier': varSelectedTask.'Start up WO sent to supplier',
                'Start up WO signed': varSelectedTask.'Start up WO signed',
                'Initiate RFP': varSelectedTask.'Initiate RFP',
                'RFP Submission': varSelectedTask.'RFP Submission',
                'RFP Questions from Supplier': varSelectedTask.'RFP Questions from Supplier',
                'NN RFP Reply Date To Supplier': varSelectedTask.'NN RFP Reply Date To Supplier',
                'Proposal from Supplier': varSelectedTask.'Proposal from Supplier',
                'Internal Proposal Review Meeting Date': varSelectedTask.'Internal Proposal Review Meeting Date',
                'Bid Defence/Clarification Meeting': varSelectedTask.'Bid Defence/Clarification Meeting',
                'Supplier Selection Award': varSelectedTask.'Supplier Selection Award',
                'Contract Signed (WO/SAC)': varSelectedTask.'Contract Signed (WO/SAC)'
            }
        )
    }
);
Concurrent(
    ClearCollect(
        colSelectedTaskSuppliers,
        varSelectedTask.Suppliers
    ),
    ClearCollect(
        colSelectedTaskSMEs,
        varSelectedTask.Users
    )
);
Concurrent(
    ForAll(
        colSelectedTaskSuppliers,
        Relate(
            vaNewTask.Suppliers,
            ThisRecord
        )
    ),
    ForAll(
        colSelectedTaskSMEs,
        Relate(
            vaNewTask.Users,
            ThisRecord
        )
    )
);
ClearCollect(
    colPlanTasks,
    Filter(
        'Outsourcing Tasks',
        'Outsourcing Plan (dot_OutsourcingPlan1)'.'Outsourcing Plan' = paramSelectedPlan.'Outsourcing Plan'
    )
);
UpdateContext({locWaiting:false})

the new code is like this:

ForAll(colSelectedTrials,
    Concurrent(
        Collect(colPlanTrials, cbAddTrial.Selected),
        Relate(paramSelectedPlan.'DOT Trials', ThisRecord)
    )
);

ClearCollect(
    colPlanTrials,
    Filter(
        'Outsourcing Trials',
        !IsBlank(paramSelectedPlan) && 'Outsourcing Plan'.'Outsourcing Plan' = paramSelectedPlan.'Outsourcing Plan'
    )
);

    ForAll(
        cbAddService.SelectedItems,
        Relate(
            paramSelectedPlan.'DOT Tasks',
            
           Patch(
                'Outsourcing Tasks',
                Defaults('Outsourcing Tasks'),
                {
                    //General Information OP
                    'Task Type': 'Task Type'.RFP,
                    Service: ThisRecord,
                    Trial: First(colSelectedTrials),
                    'Subject Matter Experts': varSelectedTask.'Subject Matter Experts', 
                     Supplier: varSelectedTask.Supplier,
              

                    //Users in OP
                    
                    'CTA Contract Owner': If(IsBlank(varSelectedTask.'CTA Contract Owner'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'CTA Contract Owner'.'Azure AD Object ID'))),

                    'LoB RFP responsible': If(IsBlank(varSelectedTask.'LoB RFP responsible'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'LoB RFP responsible'.'Azure AD Object ID'))),

                    'Outsourcing Lead': If(
                    IsBlank(varSelectedTask.'Outsourcing Lead'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'Outsourcing Lead'.'Azure AD Object ID'))),

                    'Outsourcing Support': If(IsBlank(varSelectedTask.'Outsourcing Support'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'Outsourcing Support'.'Azure AD Object ID'))),

                    'Corporate Procurement Contact': If(IsBlank(varSelectedTask.'Corporate Procurement Contact'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'Corporate Procurement Contact'.'Azure AD Object ID'))),
                    
                    'Subject Matter Experts Contacts': If(IsBlank(varSelectedTask.'Subject Matter Experts Contacts'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'Subject Matter Experts Contacts'.'Azure AD Object ID'))),
                    
                    //Users in Task module
                    'Contract Owner CPS/TM': If(IsBlank(varSelectedTask.'Contract Owner CPS/TM'.'Azure AD Object ID'),Blank(),
                    LookUp(Users, 'Azure AD Object ID' = GUID(varSelectedTask.'Contract Owner CPS/TM'.'Azure AD Object ID'))),
                    
                    
                    //Datefields in OP
                    'Start up WO sent to supplier':varSelectedTask.'Start up WO sent to supplier',
                    'Start up WO sent to supplier NA':varSelectedTask.'Start up WO sent to supplier NA',

                    'Start up WO signed': varSelectedTask.'Start up WO signed',
                    'Start up WO signed NA': varSelectedTask.'Start up WO signed NA',

                    'Initiate RFP': varSelectedTask.'Initiate RFP',
                    'Initiate RFP NA': varSelectedTask.'Initiate RFP NA',

                    'RFP Submission': varSelectedTask.'RFP Submission',
                    'RFP Submission NA': varSelectedTask.'RFP Submission NA',

                    'RFP Questions from Supplier': varSelectedTask.'RFP Questions from Supplier',
                    'RFP Questions from Supplier NA': varSelectedTask.'RFP Questions from Supplier NA',

                    'NN RFP Reply Date To Supplier': varSelectedTask.'NN RFP Reply Date To Supplier',
                    'NN RFP Reply Date To Supplier NA': varSelectedTask.'NN RFP Reply Date To Supplier NA',

                    'Proposal from Supplier': varSelectedTask.'Proposal from Supplier',
                    'Proposal from Supplier NA': varSelectedTask.'Proposal from Supplier NA',

                    'Internal Proposal Review Meeting Date': varSelectedTask.'Internal Proposal Review Meeting Date',
                    'Internal Proposal Review Meeting Date NA': varSelectedTask.'Internal Proposal Review Meeting Date NA',

                    'Bid Defence/Clarification Meeting': varSelectedTask.'Bid Defence/Clarification Meeting',
                    'Bid Defence/Clarification Meeting NA': varSelectedTask.'Bid Defence/Clarification Meeting NA',

                    'Supplier Selection Award': varSelectedTask.'Supplier Selection Award',
                    'Supplier Selection Award NA': varSelectedTask.'Supplier Selection Award NA',

                    'Contract Signed (WO/SAC)': varSelectedTask.'Contract Signed (WO/SAC)',
                    'Contract Signed (WO/SAC) NA': varSelectedTask.'Contract Signed (WO/SAC) NA',

                    //Considerations in OP
                    'Assessment Needed': varSelectedTask.'Assessment Needed',
                    'TPR Risk Due Diligence Score': varSelectedTask.'TPR Risk Due Diligence Score',
                    'Rationale for sending RFP to chosen suppliers': varSelectedTask.'Rationale for sending RFP to chosen suppliers',
                    Note: varSelectedTask.Note
               }
            )
        ) 
    );



    Concurrent(
        ClearCollect(
            colPlanTasks,
            Filter(
                'Outsourcing Tasks',
                'Outsourcing Plan (dot_OutsourcingPlan1)'.'Outsourcing Plan' = paramSelectedPlan.'Outsourcing Plan'
            )
        ),
         ClearCollect(
            colPlanTrials,
            Filter(
            'Outsourcing Trials',
            !IsBlank(paramSelectedPlan) && 'Outsourcing Plan'.'Outsourcing Plan' = paramSelectedPlan.'Outsourcing Plan'
        )
    )
    );

    UpdateContext({locWaiting: false});
    Reset(cbAddService);
    Reset(cbAddTrial);

Can you write me the code spo that the functionaility from the old coode with regards to relating colSelectedTaskSuppliers and colSelectedTaskSMEs to Thisrecord is included in the new code