'Dim strSQL As String = "{SPN_rpTransactionListing;1.ItemConfirmFlag} = 'Y' "
                'rpt.DataDefinition.RecordSelectionFormula = strSQL

                'Dim strSQL As String = "{SPN_rpTransactionListing;1.ItemConfirmFlag} = 'Y' "


                If cboStatus.Text = "Y" Then
                    Dim strSQL As String = "{SPN_rpTransactionListing;1.ItemConfirmFlag} = 'Y' "
                    rpt.DataDefinition.RecordSelectionFormula = strSQL
                Else
                    Dim strSQL2 As String = "{SPN_rpTransactionListing;1.ItemConfirmFlag} <> 'Y' "
                    rpt.DataDefinition.RecordSelectionFormula = strSQL2
                End If