How do I improve performance of my e-script?

I was tasked to update a function of a business service and we hit an issue with performance. With the old code, it usually takes 6 minutes to process 3500 records but now, it takes 1 minute to process only two records. I only added a new query and a date function so I'm thinking what I did wrong. I'm planning to create a trace SQL for this but can you help me just by looking at the code what mistake I did? I enclosed the code I added with /*******************************/

function UpdateTestResult(psFileValues:PropertySet):chars

{

//Declarations

var boTestRun:BusObject;

var bcTestRun:BusComp;

var boeEvents:BusObject;