Unable to pull information properly into report

I have an application that has a VB front end, with an Access 97 DB printing to Crystal Reports 8.5.

The program resides on the network and updates the DB when the user goes to print the report. I have four separate reports with four separate parameters in each report. Each report matches each form in the app.

When I go to print if there is one record in the DB then it works somewhat fine. If there are two or more records in the DB then information starts bleeding over from the other record and vice-versa.

Here is what my code looks like when I print:

    With frmRateEmployee.crEmpRating
        .ReportFileName = App.Path & "\Employee Rating.rpt"
        .ParameterFields(0) = "EmpRating;Main Report Param;True"
        .Destination = crptToPrinter
        .Action = 1             'returns any errors that might arise
    End With
   
    With crEmpComments
        .ReportFileName = App.Path & "\Employee Comments.rpt"
        .ParameterFields(0) = "EmpComments;Main Report Param;True"
        .Destination = crptToPrinter
        .Action = 1
    End With
===========================
When the user exits the app completely the program destroys all records leaving only a paper trail of the information.

Any ideas as to why it is not seeing the information for that particular record only?

Thanks,
Roger.