vb.net load crystal report give me an error

Hi,

When I try to run following vb code to show a crystal report, it give me an error

How could I solve it?

Thank you

error message

Could not load file or assembly 'file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified.

Private Sub printreport()

        Dim ds As New dsinvoice

        Dim dtinvoice As DataTable

        Dim drinvoice As DataRow

        dtinvoice = ds.Tables.Add("dtinvoice")

        dtinvoice.Columns.Add("name", Type.GetType("System.String"))

        dtinvoice.Columns.Add("address", Type.GetType("System.String"))

        dtinvoice.Columns.Add("tel", Type.GetType("System.String"))

        dtinvoice.Columns.Add("invoiceid", Type.GetType("System.Int32"))

        dtinvoice.Columns.Add("ponum", Type.GetType("System.String"))

        dtinvoice.Columns.Add("date", Type.GetType("System.DateTime"))

        dtinvoice.Columns.Add("remark", Type.GetType("System.String"))

        dtinvoice.Columns.Add("sale", Type.GetType("System.String"))

        dtinvoice.Columns.Add("transport", Type.GetType("System.String"))

        drinvoice = dtinvoice.NewRow

        drinvoice.Item("name") = "日本城"

        drinvoice.Item("address") = "日本城行"

        drinvoice.Item("tel") = "22222222"

        drinvoice.Item("invoiceid") = 1000

        drinvoice.Item("ponum") = "opnum"

        drinvoice.Item("date") = Now

        drinvoice.Item("remark") = "日本城日本城日本城日本城"

        drinvoice.Item("sale") = "陳小姐"

        drinvoice.Item("transport") = "阿全"

        Dim objRpt As New rptinvoice

        objRpt.SetDataSource(ds)

        CrystalReportViewer1.ReportSource = objRpt

        CrystalReportViewer1.Refresh()

    End Sub