Calling Quick Job Entry returns Next Job

We are converting a custom form from Epicor 9 to create a job on the fly for a stocked part.
When we send it to Quick Job Entry, it comes back as “Next Job”. Any ideas.
We are on 10.1.600.14.
This is currently written in VB.
//
Private Sub ProcessManufactured()
Dim jobNum As String = String.Empty
Dim quickJobAdapter As QuickJobEntryAdapter = New QuickJobEntryAdapter(UD02Form)
Try
oTrans.PushStatusText(“Processing Manufactured Kanban…”, True)
quickJobAdapter.BOConnect()
quickJobAdapter.GetNewQuickJob(“NextJob”)
jobNum = quickJobAdapter.QuickJobEntryData.QuickJob.Rows(0)(“JobNum”)
oTrans.PushStatusText(String.Format(“Processing Manufactured Kanban…JobNum created: {0}”, jobNum), True)
quickJobAdapter.QuickJobEntryData.QuickJob.Rows(0)(“PartNum”) = kanbanView.DataView(0)(“PartNum”)

        '------------------------------------------------------------------------------------
        'quickJobAdapter.ChangeQuickJobPartNum(kanbanView.DataView(0)("IUM"))
        quickJobAdapter.ChangeQuickJobPartNum(kanbanView.DataView(0)("PartNum"))

        '------------------------------------------------------------------------------------


        quickJobAdapter.QuickJobEntryData.QuickJob.Rows(0)("Quantity") = kanbanView.DataView(0)("OrderQty")
        quickJobAdapter.QuickJobEntryData.QuickJob.Rows(0)("Engineered") = True
        quickJobAdapter.QuickJobEntryData.QuickJob.Rows(0)("Released") = True

        quickJobAdapter.ChangeQuickJobEngineered()
        quickJobAdapter.ChangeQuickJobReleased()
        Dim requiredInput As Boolean = False
        quickJobAdapter.PreGenerateJob(requiredInput)
        Dim result As String = ""
        quickJobAdapter.GenerateJob(result)
        OpenJobTraveler(jobNum)
    Catch ex As Exception
        'MessageBox.Show("error " + ex.Message)
        messagebox.show(String.Format("An unexpected error has occurred.{0}{0}Object Method: ProcessManufactured {0}{0}{1}", environment.newline, ex.message), "Error", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error)
        refresh()
    Finally
        oTrans.PushStatusText(String.Format("JobNum created: {0}", jobNum), False)
        quickJobAdapter.Dispose()
    End Try
    refresh()

//

Thanks,
Chris Wineinger
Dorner Mfg