Visual Basic

ip address 75.150.122.161 255.255.255.240 

Try
            OpenConnection()
            '// Writing Sales Data into XML Document
            Dim sb As New StringBuilder '<------------------- Table 1
            With sb
                .Append("SELECT * FROM salesdetails WHERE InvoiceId='" & TbInvNo.Text & "'")
            End With
            Dim dbcommand As New MySqlCommand
            Dim dbadapter As New MySqlDataAdapter
            Dim stdata As New DataSet()
            dbcommand.Connection = conn
            dbcommand.CommandText = sb.ToString
            dbadapter.SelectCommand = dbcommand
            dbadapter.Fill(stdata, "salesdetails")
            stdata.WriteXml(Application.StartupPath & "\ReportXml\SaleXml.xml", XmlWriteMode.WriteSchema)
            Dim dbread As MySqlDataReader = dbcommand.ExecuteReader
            While dbread.Read
                IID = dbread("InvoiceId")
            End While
            dbread.Close()

            '// Writing SalesItems Data into XML Document
            Dim sb2 As New StringBuilder '<------------------- Table 2
            With sb2
                .Append("SELECT * FROM salesitems WHERE InvoiceId='" & TbInvNo.Text & "'")
            End With
            Dim dcmd As New MySqlCommand
            Dim sadapter As New MySqlDataAdapter
            Dim sd As New DataSet()
            dcmd.Connection = conn
            dcmd.CommandText = sb2.ToString
            sadapter.SelectCommand = dcmd
            sadapter.Fill(sd, "salesitems")
            sd.WriteXml(Application.StartupPath & "\ReportXml\SalesItems.xml", XmlWriteMode.WriteSchema)

            '// Merge Into One (Two XML Files)  <------------- Table 1 + Table2
            Dim Table1 As New XmlTextReader(Application.StartupPath & "\ReportXml\SaleXml.xml")
            Dim Table2 As New XmlTextReader(Application.StartupPath & "\ReportXml\SalesItems.xml")
            Dim XmlDataSet1 As New DataSet
            Try
                XmlDataSet1.ReadXml(Table1)
                Dim XmlDataSet2 As New DataSet
                XmlDataSet2.ReadXml(Table2)

                XmlDataSet1.Merge(XmlDataSet2)
                XmlDataSet1.WriteXml(Application.StartupPath & "\ReportXml\CompleteSales.xml", XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!!!")
            End Try

            Dim objRpt As New SaleBill '<------------- SaleBill is the name of CrystalReport
            objRpt.SetDataSource(XmlDataSet1.Tables())
            FormReport.RptViewer.ReportSource = objRpt
            FormReport.ShowDialog()
            FormReport.RptViewer.RefreshReport()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try