Dim tempOrdre As New Order With {
                    .CustomerID = cmbCustomerName.SelectedValue.ToString,
                    .ProductID = cmbProductSpec.SelectedValue.ToString,
                    .ProductNumber = txtProductNumber.Text.Trim,
                    .BatchNO = txtBatchNO.Text.Trim,
                    .OrderDate = dtpOrderDate.Value.ToShortDateString
                    }

                db.Order.InsertOnSubmit(tempOrdre)

                Try
                    db.SubmitChanges() ’提交数据库操作
                    Dim intid As Integer = tempOrdre.OrderID ‘获得自增长列ID
                    MessageBox.Show(intid) ’显示ID
                Catch ex As Exception
                    Throw New System.Exception(ex.Message, ex.InnerException)
                End Try