error เกี่ยวกับการแสดงผล crystal report can't load "crdb_adoplus.dll"

            Dim rpt As New ReportDocument()
            Dim directory As String = My.Application.Info.DirectoryPath
            'rpt.Load(directory & "\myCrystalReport1.rpt")
            rpt.Load("D:\Program_ECF\Sampleproduct\Sampleproduct\CrystalRePro.rpt")
            rpt.SetDataSource(dt)
            Me.CrystalReportViewer1.ReportSource = rpt
            Me.CrystalReportViewer1.Refresh()