Crystal report is cumulating new and old data loaded in it

Private Sub InvoiceReport(ByVal pInvoiceID As String)
    Dim lCryRpt As New ReportDocument
    Dim ds As New DataSet
    Dim lsql As String
    Dim lXMLPath As String
    Dim lRPTPath As String

    lXMLPath = "C:\Alumeel\Reports\InvoiceSheet.xml"
    lRPTPath = "C:\Alumeel\Reports\InvoiceSheet.rpt"

    lsql = "Select * From InvoiceItems Where InvoiceID = " & pInvoiceID
    mdb.FillMyDataSet(lsql, ds, "Invoice")
    ds.WriteXmlSchema(lXMLPath)
    lCryRpt.Load(lRPTPath)
    lCryRpt.SetDataSource(ds)
    Me.CrystalReportViewer1.ReportSource = lCryRpt
    Me.CrystalReportViewer1.Update()
    Me.CrystalReportViewer1.Refresh()
    Me.Show()
End Sub