oOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
 
        Dim oBob As SAPbobsCOM.SBObob
 
        ' set properties of the Order object
        oOrder.CardCode = cmbCustomer.Text
        oOrder.CardName = cmbName.Text
        oOrder.DocNum = txtNo.Text
        oOrder.DocDate = DatePosting.Value
        oOrder.DocDueDate = DateDelivery.Value
        oOrder.DocCurrency = cmbCurrency.Items(cmbCurrency.SelectedIndex)
 
        TableLines.AcceptChanges() ' Update the lines table
 
        ' Add lines to the Orer object from the table
        Dim i As Integer
        i = 0
 
        Do
            oOrder.Lines.ItemCode = TableLines.Rows(i).Item(0)
            oOrder.Lines.ItemDescription = TableLines.Rows(i).Item(1)
            oOrder.Lines.Quantity = TableLines.Rows(i).Item(2)
            oOrder.Lines.Price = TableLines.Rows(i).Item(3)
            oOrder.Lines.TaxCode = TableLines.Rows(i).Item(4)
            'oOrder.Lines.LineTotal = TableLines.Rows(i).Item(5)
            i += 1
            If i <> TableLines.Rows.Count Then
                oOrder.Lines.Add()
            End If
        Loop Until i = TableLines.Rows.Count
 
        lRetCode = oOrder.Add ' Try to add the orer to the database