Наладить работу RDLC-отчета в проекте - Visual Basic .NET

Формулировка задачи:

Помогите, люди добрые, побороть этого змия. Пытаюсь наладить работу RDLC-отчета в проекте VB.NET В окне FormRep расположен единственный элемент управления - ReportViewer. Код создания окна следующий:

Public Module M_Rf_ac
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                  Создание/активация формы RF                                     '
    '=================================================================================================='
 
    Public Sub RF_ac()
        If Not FormRep_exist Then
            FormRep = New RF
 
            FormRep_exist = True
 
            FormRep.Show()
        End If
 
        FormRep.MdiParent = Main
 
        FormRep.Dock = DockStyle.Fill
        
        FormRep.WindowState = FormWindowState.Normal
        
        Call RF_ld()
        
        FormRep.Activate()
        
    End Sub
 
End Module

Public Module M_Rf_Ld
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                  Создание/активация формы RF                                     '
    '=================================================================================================='
 
    Public Sub RF_Ld()
        Dim Fnm As String
        
        DTS_GRD.Clear()
        
        Fnm = Corr_Path(gCurDir) + "DTS_GRD.XML"
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, False, False, False)
 
        If DTS_GRD.Tables.Contains("REL") Then
            FormRep.RepViewer1.Reset()
            FormRep.RepViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
            FormRep.RepViewer1.LocalReport.ReportEmbeddedResource = "Report2.rdlc"
            FormRep.RepViewer1.LocalReport.ReportPath = "D:\A3.VB\PROJECT\Report2.rdlc"
            FormRep.RepViewer1.LocalReport.DataSources.Clear()
            FormRep.RepViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("REL", DTS_GRD.Tables("REL")))
 
            'MsgBox("LocalReport DataSources Count = " + CStr(FormRep.RepViewer1.LocalReport.DataSources.Count))
 
            FormRep.RepViewer1.RefreshReport()
        End If
       
    End Sub
 
End Module

Файл отчета - Report2.rdlc и XML схема источника данных - в RAR-архиве

Решение задачи: «Наладить работу RDLC-отчета в проекте»

textual
                            Листинг программы 
                        

                            Public Module M_Rd_DataSet_From_XML
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                   Чтение DataSet из XML-файла                                    '
    '=================================================================================================='
 
    Public Sub Rd_DataSet_From_XML(ByRef DT As DataSet, ByRef XMLnm As String, ByRef XSD_in As Boolean, ByRef Sh_Err As Boolean, ByRef Sh_Mes As Boolean)
        Dim XSDnm As String
        Dim XLen As Integer
        Dim _er As Boolean
 
        XMLnm = IO.Path.GetFullPath(XMLnm)
 
        If Sh_Err Then
            If Not IO.File.Exists(XMLNm) Then
                MsgBox("Файл отсутствует: " + XMLNm, MsgBoxStyle.Exclamation, "Ошибка")
                        
                Return
            End If
        End If
 
        XLen = XMLnm.Length()
 
        If XLen <= 5 Then
            If Sh_Err Then
                MsgBox("Имя XML-файла слишком короткое. Останов <" + XMLnm + ">", MsgBoxStyle.Exclamation, "Ошибка")
            End If
 
            Return
        End If
 
        XSDnm = XMLnm.Substring(0, XLen - 4) + ".XSD"
 
        _er = False
 
        Try
            If XSD_in Then
                DT.ReadXml(XMLnm, XmlReadMode.ReadSchema)
            Else
                DT.ReadXmlSchema(XSDnm)
                DT.ReadXml(XMLnm)
            End If
 
        Catch
            _er = True
 
        End Try
 
        If _er Then
            If Sh_Err Then
                MsgBox("Ошибка при чтении XML-файла.", MsgBoxStyle.Exclamation, "Ошибка")
            End If
        End If
 
    End Sub
 
End Module
                        