Problemas com Crystal no VS 2010

        Dim stringConexao As String = My.Settings.Caminho.ToString
        Dim conn As New OleDbConnection(stringConexao)
        'MsgBox("Orçamento nro " & IDORC & " impresso!")

        Dim daCliente As New OleDbDataAdapter("Select * from Clientes Where ID_CLI = " & IDCLI, conn)
        Dim daOrcam As New OleDbDataAdapter("Select * from Orcamentos Where ID_ORC = " & IDORC, conn)
        Dim daPecasGar As New OleDbDataAdapter("SELECT PECASORC.USADA, PECASORC.QUANTID, PECASORC.MOTIVO, ESTOQUE.CODLINHA, ESTOQUE.CODESTOQUE " & _
                                               "FROM ESTOQUE INNER JOIN PECASORC ON ESTOQUE.ID_EST = PECASORC.IDPRO WHERE IDORC=" & IDORC & " ", conn)


        Dim dsRelatorio As New dsEntrGar
        conn.Open()
        daCliente.Fill(dsRelatorio.CLIENTES)
        daOrcam.Fill(dsRelatorio.ORCAMENTOS)
        daPecasGar.Fill(dsRelatorio.PECASORC)
        conn.Close()

        Dim relatorio As New crEntrGar

        Dim parametros As New CrystalDecisions.Shared.ParameterFields
        Dim parametro1 As New CrystalDecisions.Shared.ParameterField
        Dim dis_param1 As New CrystalDecisions.Shared.ParameterDiscreteValue
        Dim parametro2 As New CrystalDecisions.Shared.ParameterField
        Dim dis_param2 As New CrystalDecisions.Shared.ParameterDiscreteValue
        parametro1.ParameterFieldName = "enderloja"
        dis_param1.Value = EMPRESA
        parametro1.CurrentValues.Add(dis_param1)
        parametros.Add(parametro1)
        parametro2.ParameterFieldName = "Garantia"
        dis_param2.Value = "ORÇAMENTO NRO. " & IDORC & " EM GARANTIA"
        parametro2.CurrentValues.Add(dis_param2)
        parametros.Add(parametro2)


        relatorio.SetDataSource(dsRelatorio)

        Dim f As New frmRelatorio(relatorio)
        f.crvRelatorio.ParameterFieldInfo = parametros

        f.Show()