If caller.ChkboxRspBot.Checked = True And caller.ChkboxRspCtn.Checked = True And caller.ChkboxWspBot.Checked = True And caller.ChkboxWspCtn.Checked = True Then Dim crReport As New CrystalReport1() crReport.Load(aaa & "\CrystalReport1.rpt") ElseIf caller.ChkboxRspBot.Checked = True Or caller.ChkboxRspCtn.Checked = True Then Dim crReport As New RSP() crReport.Load(aaa & "\RSP.rpt") ElseIf caller.ChkboxWspBot.Checked = True Or caller.ChkboxWspCtn.Checked = True Then Dim crReport As New WSP() crReport.Load(aaa & "\WSP.rpt") End If Dim repDB As Database = crReport.Database crReport.SetDataSource(SENSDataSet) CrystalReportViewer1.ReportSource = crReport