Private Sub CreateQuoteReferenceDetailsDataSet()

    'Create a DataSet
    Dim quotationDataSet As New DataSet

    'Initialize DataTables for the DataSet
    Dim quoteDataTable As DataTable = quotationDataSet.Tables.Add("QuoteDetails")
    Dim quotedItemsDataTable As DataTable = quotationDataSet.Tables.Add("QuotedItems")

    'Create DataRows for every DataTable
    Dim quoteDetailsDataRow As DataRow = Nothing
    Dim quotedItemsDataRow As DataRow = Nothing

    'Prepare columns for the DataTable named DeliveryDetails
    With quotationDataSet.Tables(0).Columns

        .Add("quoteDate", Type.GetType("System.String"))
        .Add("quoteReferenceNumber", Type.GetType("System.String"))
        .Add("quoteCompany", Type.GetType("System.String"))
        .Add("quoteStreetAddress", Type.GetType("System.String"))
        .Add("quoteCity", Type.GetType("System.String"))
        .Add("quoteContactPerson", Type.GetType("System.String"))
        .Add("quoteSubject", Type.GetType("System.String"))
        .Add("quoteTerms", Type.GetType("System.String"))
        .Add("quoteDelivery", Type.GetType("System.String"))
        .Add("quoteProposalValidity", Type.GetType("System.String"))

    End With

    'Prepare columns for the DataTable named DeliveredItems
    With quotationDataSet.Tables(1).Columns

        .Add("quoteCatNumber", Type.GetType("System.String"))
        .Add("quotePartName", Type.GetType("System.String"))
        .Add("quoteDescription", Type.GetType("System.String"))
        .Add("quoteQuantity", Type.GetType("System.String"))
        .Add("quoteGrandTotal", Type.GetType("System.String"))

    End With

    'If dataset already exists on startup, then dispose newly created dataset. Else, write a new
    'DataSet file.
    If IO.File.Exists(Application.StartupPath & "quoteReferenceDetailsSchema.xsd") = True Then
        quotationDataSet.Dispose()
        Exit Sub
    Else
        quotationDataSet.WriteXmlSchema(Application.StartupPath & "quoteReferenceDetailsSchema.xsd")
    End If

End Sub

Private Sub CreateReport()

    'Initialize the needed objects for report document.
    Dim myQuotationReport As New rptQuotationReference
    Dim dataSet As New DataSet

    'Initialize DataTables for the DataSet
    Dim quoteDataTable As DataTable = dataSet.Tables.Add("QuoteDetails")
    Dim quotedItemsDataTable As DataTable = dataSet.Tables.Add("QuotedItems")

    'Create DataRows for every DataTable
    Dim quoteDetailsDataRow As DataRow = Nothing
    Dim quotedItemsDataRow As DataRow = Nothing

    'Declare other related variables for the subroutine.
    Dim counter As Integer = 0

    'Prepare columns for the DataTable named QuoteDetails
    With dataSet.Tables(0).Columns

        .Add("quoteDate", Type.GetType("System.String"))
        .Add("quoteReferenceNumber", Type.GetType("System.String"))
        .Add("quoteCompany", Type.GetType("System.String"))
        .Add("quoteStreetAddress", Type.GetType("System.String"))
        .Add("quoteCity", Type.GetType("System.String"))
        .Add("quoteContactPerson", Type.GetType("System.String"))
        .Add("quoteSubject", Type.GetType("System.String"))
        .Add("quoteTerms", Type.GetType("System.String"))
        .Add("quoteDelivery", Type.GetType("System.String"))
        .Add("quoteProposalValidity", Type.GetType("System.String"))

    End With

    Dim termsOfPayment As String = cboTermsOfPayment.SelectedItem
    Dim deliveryDuration As String = nudDurationValue.Value.ToString() + cboDuration.SelectedItem
    Dim deliveryValidity As String = nudValidityValue.Value.ToString() + cboValidityDuration.SelectedItem

    'Initialize and insert delivery heading to the DataTable.
    quoteDetailsDataRow = dataSet.Tables(0).NewRow
    quoteDetailsDataRow(0) = dtpQuoteRefDate.Value.ToString()
    quoteDetailsDataRow(1) = txtQRNumber.Text
    quoteDetailsDataRow(2) = txtQuotationTargetClient.Text
    quoteDetailsDataRow(3) = txtQuotationClientAddress.Text
    quoteDetailsDataRow(4) = txtQuotationClientCity.Text
    quoteDetailsDataRow(5) = txtContactPerson.Text
    quoteDetailsDataRow(6) = txtQuoteSubject.Text
    quoteDetailsDataRow(7) = termsOfPayment
    quoteDetailsDataRow(8) = deliveryDuration
    quoteDetailsDataRow(9) = deliveryValidity
    dataSet.Tables(0).Rows.Add(quoteDetailsDataRow)

    'Prepare columns for the DataTable named QuotedItems
    With dataSet.Tables(1).Columns

        .Add("quoteCatNumber", Type.GetType("System.String"))
        .Add("quotePartName", Type.GetType("System.String"))
        .Add("quoteDescription", Type.GetType("System.String"))
        .Add("quoteQuantity", Type.GetType("System.String"))
        .Add("quoteGrandTotal", Type.GetType("System.String"))

    End With

    For counter = lviQuotedList.Items.Count - 1 To 0 Step -1

        quotedItemsDataRow = dataSet.Tables(1).NewRow

        With lviQuotedList

            quotedItemsDataRow(0) = .Items.Item(counter).Text
            quotedItemsDataRow(1) = .Items.Item(counter).SubItems.Item(1).Text
            quotedItemsDataRow(2) = .Items.Item(counter).SubItems.Item(2).Text
            quotedItemsDataRow(3) = .Items.Item(counter).SubItems.Item(3).Text
            quotedItemsDataRow(4) = .Items.Item(counter).SubItems.Item(4).Text

        End With

        dataSet.Tables(1).Rows.Add(quotedItemsDataRow)
        quotedItemsDataRow = Nothing

    Next counter

    'Set Data Sources for the Crystal Report.
    **myQuotationReport.SetDataSource(dataSet)**
    frmQuotationReferenceReport.crvQuotationReferenceReport.ReportSource = myQuotationReport

    'Dispose after using.
    dataSet.Dispose()
    dataSet = Nothing

End Sub