Erro ao executar o ReportViewer

Marcos,
Este erro está acontecendo na sua máquina de desenvolvimento ou no servidor?Pelo erro está faltando instalar o ReportView (ou então ficou faltando registrar alguma dll).Sugiro uma nova instalação, se for no servidor basta instalar o Report Viewer Redistributable.

Consegui resolver este problema, estava faltando fazer o link do reportviewer ao webform.aspx. Porém não estou conseguindo fazer aparecer o relatório em si. 
Problema nesta linha de comando:

ReportViewer.LocalReport.DataSources.Add(New ReportDataSource("Orgao", Relatorio.OrgaoDataTable.Tables(0)))

Não sei se os campos dentro dos parênteses estão corretos.

Com certeza está errado:
Aonde está "Orgao" deve ser preenchido com o nome do DataSet mais um sinal de underline nome da Tabela. Se o DataSet for Orgao mesmo deve ficar assim: "Orgao_Tabela", Relatorio.OrgaoDataTable.Tables(0)

Foi feito o seguinte:

 Private Sub ConfiguraRelatorio()
        'Dim ex As New TJRegraDeNegocioException
        Dim list As IList(Of Model.AFD)
        Dim sCodUsu As String = String.Empty
        Dim sGrupo As String = String.Empty
        Dim Param(4) As ReportParameter
        Dim cls As New Model.MacoService
        Dim maco As Maco = cls.consultarMaco(Me.numMaco, Me.codOrg)
        If (maco Is Nothing) Then
            Throw New TJRegraDeNegocioException("Maço não encontrado")
        End If
         
            list = cls.consultarProcessosDoMacoPorNumeroMacoECodOrg(maco.numMaco, Me.codOrg)

        Param(0) = New ReportParameter("serventia", maco.orgao.nome)
        Param(1) = New ReportParameter("numMaco", maco.numMaco)
        Param(2) = New ReportParameter("codOrgao", maco.orgao.codOrgao)
        Param(3) = New ReportParameter("observacao", maco.observacao)
        Param(4) = New ReportParameter("codUsu", maco.usuario.codUsu)

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.ReportPath = "rptMaco.rdlc"
        ReportViewer1.LocalReport.ReportEmbeddedResource = "rptMaco.rdlc"
        ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("clsItemRelatorio", From l In       parseListAFDToItemRelatorioMaco(list).AsQueryable))
        ReportViewer1.LocalReport.SetParameters(Param)
        ReportViewer1.DataBind()
    

    End Sub
    Private Function parseListAFDToItemRelatorioMaco(ByVal lista1 As IList(Of AFD)) As IList(Of ItemRelatorioMaco)
        Dim lista2 As New List(Of ItemRelatorioMaco)
        For Each el As AFD In lista1
            lista2.Add(New ItemRelatorioMaco(el))
        Next

        Return lista2
    End Function