How to load repx file in windows form application in vb.net

[VB.NET]Open in popup window
    Private Sub CreateReport(ByVal ReportPath As String)

        ' Load Report
        Dim report As New DevExpress.XtraReports.UI.XtraReport()
        report.LoadLayout(ReportPath)


        ' Read Tables(names), that are needed for the .repx-File
        Dim reportDataSet As DataSet = TryCast(report.DataSource, DataSet)
        Dim newDataSet As New DataSet(reportDataSet.DataSetName)


        ' Load DataTables from current Connection
        For Each dt As DataTable In reportDataSet.Tables()
            Dim newDataTable As DataTable = LoadDataTable(dt.TableName())
            newDataSet.Tables.Add(newDataTable)
        Next


        ' Set New DataSource
        report.DataSource = newDataSet


        ' Show Report
        PrintControl1.PrintingSystem = report.PrintingSystem
        report.PrintingSystem.SetCommandVisibility(DevExpress.XtraPrinting.PrintingSystemCommand.Parameters, DevExpress.XtraPrinting.CommandVisibility.None)
        report.CreateDocument(True)

    End Sub


    Private Function LoadDataTable(ByVal tableName As String) As DataTable

        Dim cmd As New OleDb.OleDbCommand("SELECT * FROM " & tableName, conn)
        Dim dt As New DataTable(tableName)

        conn.Open()
        dt.Load(cmd.ExecuteReader)
        conn.Close()
        Return dt

    End Function