Hello:

I am using Visual Basic 2017

I have some code (below) that reads three tables into one form to populate textboxes based on using .FindBy. The first table works great, however the second two do not.

The error is System.NullReferenceException, even though I have added a Not IsNothing to the mix, starting in this line of code:
Code:
If Not IsNothing(.PrintPickSheet_new) Then txtPrintPickSheet_new.Text = .PrintPickSheet_new

Code:
        Private Sub UpdateJobNoData(ByVal _JobNo As String)
            Dim row_JobInfo As JobSheetDataSet.JobInfoRow = JobSheetDataSet.JobInfo.FindByJobNo(_JobNo)
            With row_JobInfo
                If Not IsNothing(.JobNo) Then txtJobNo.Text = .JobNo
                If Not IsNothing(.ProjectItem) Then txtProjectItem.Text = .ProjectItem
                If Not IsNothing(.DrawingNo) Then txtDwgNo.Text = .DrawingNo
                If Not IsNothing(.Started) Then txtStarted.Text = .Started ' date
                If Not IsNothing(.Completed) Then txtCompleted.Text = .Completed ' date
                If Not IsNothing(.Engineer) Then txtEngineer.Text = .Engineer
                If Not IsNothing(.Designer) Then txtDesigner.Text = .Designer
                If Not IsNothing(.EstHrs) Then txtEstHrs.Text = .EstHrs ' decimal
                If Not IsNothing(.Checker) Then txtChecker.Text = .Checker
                If Not IsNothing(.EngineeringJobNotes) Then rtbEngineeringJobNotes.Text = .EngineeringJobNotes
                If Not IsNothing(.ShipTo) Then txtShipTo.Text = .ShipTo
                If Not IsNothing(.ShipDate) Then txtShipDate.Text = .ShipDate ' date
                If Not IsNothing(.FMLDrawingNo) Then txtFMLDrawingNo.Text = .FMLDrawingNo
    
            End With
    
            Dim row_JobDetail As JobSheetDataSet.JobDetailRow = JobSheetDataSet.JobDetail.FindByJobNo(_JobNo)
            With row_JobDetail
                ' If Not IsNothing(.JobNo) Then txtJobNo.Text = .JobNo
                If Not IsNothing(.PrintPickSheet_new) Then txtPrintPickSheet_new.Text = .PrintPickSheet_new
                If Not IsNothing(.CheckJobLetter_new) Then txtCheckJobLetter_new.Text = .CheckJobLetter_new
                If Not IsNothing(.CheckJobLetter_rw) Then txtCheckJobLetter_rw.Text = .CheckJobLetter_rw
                If Not IsNothing(.ObtainSerialNumber_new) Then txtObtainSerialNumber_new.Text = .ObtainSerialNumber_new
                If Not IsNothing(.CheckIssueTracker_new) Then txtCheckIssueTracker_new.Text = .CheckIssueTracker_new
                If Not IsNothing(.CheckInterference_new) Then txtCheckInterference_new.Text = .CheckInterference_new
                If Not IsNothing(.CheckInterference_rw) Then txtCheckInterference_rw.Text = .CheckInterference_rw
                If Not IsNothing(.ProcessingComplete_new) Then txtProcessingComplete_new.Text = .ProcessingComplete_new
                If Not IsNothing(.ProcessingComplete_rw) Then txtProcessingComplete_rw.Text = .ProcessingComplete_rw
                If Not IsNothing(.CheckDescQtyAndRev_new) Then txtCheckDescQtyAndRev_new.Text = .CheckDescQtyAndRev_new
                If Not IsNothing(.CheckDescQtyAndRev_rw) Then txtCheckDescQtyAndRev_rw.Text = .CheckDescQtyAndRev_rw
                If Not IsNothing(.CheckReleasedState_new) Then txtCheckReleasedState_new.Text = .CheckReleasedState_new
                If Not IsNothing(.CheckReleasedState_rw) Then txtCheckReleasedState_rw.Text = .CheckReleasedState_rw
                If Not IsNothing(.CheckMfst_Producability_new) Then txtCheckMfst_Producability_new.Text = .CheckMfst_Producability_new
                If Not IsNothing(.CheckMfst_Producability_rw) Then txtCheckMfst_Producability_rw.Text = .CheckMfst_Producability_rw
                If Not IsNothing(.CheckPrintAndMfst_Peer_new) Then txtCheckPrintAndMfst_Peer_new.Text = .CheckPrintAndMfst_Peer_new
                If Not IsNothing(.CheckPrintAndMfst_Peer_rw) Then txtCheckPrintAndMfst_Peer_rw.Text = .CheckPrintAndMfst_Peer_rw
                If Not IsNothing(.SendPrintAndMfst_ToAdmin_new) Then txtSendPrintAndMfst_ToAdmin_new.Text = .SendPrintAndMfst_ToAdmin_new
                If Not IsNothing(.SendPrintAndMfst_ToAdmin_rw) Then txtSendPrintAndMfst_ToAdmin_rw.Text = .SendPrintAndMfst_ToAdmin_rw
                If Not IsNothing(.CompleteChanges_AfterPE_new) Then txtCompleteChanges_AfterPE_new.Text = .CompleteChanges_AfterPE_new
                If Not IsNothing(.CompleteChanges_AfterPE_rw) Then txtCompleteChanges_AfterPE_rw.Text = .CompleteChanges_AfterPE_rw
                If Not IsNothing(.UpdateFML_new) Then txtUpdateFML_new.Text = .UpdateFML_new
                If Not IsNothing(.UpdateFML_rw) Then txtUpdateFML_rw.Text = .UpdateFML_rw
                If Not IsNothing(.UpdateCustomerCD_new) Then txtUpdateCustomerCD_new.Text = .UpdateCustomerCD_new
                If Not IsNothing(.UpdateCustomerCD_rw) Then txtUpdateCustomerCD_rw.Text = .UpdateCustomerCD_rw
                If Not IsNothing(.UpdatePrintAndMfst_Shop_new) Then txtUpdatePrintAndMfst_new.Text = .UpdatePrintAndMfst_Shop_new
                If Not IsNothing(.UpdatePrintAndMfst_Shop_rw) Then txtUpdatePrintAndMfst_rw.Text = .UpdatePrintAndMfst_Shop_rw
    
            End With
    
            Dim row_JobHrs As JobSheetDataSet.JobHrsRow = JobSheetDataSet.JobHrs.FindByJobNo(_JobNo)
            With row_JobHrs
                ' If Not IsNothing(.JobNo) Then txtJobNo.Text = .JobNo
                If Not IsNothing(.ActualHrs) Then txtActHrs.Text = .ActualHrs ' decimal
                If Not IsNothing(.ReworkHrs) Then txtReworkHrs.Text = .ReworkHrs ' decimal
                If Not IsNothing(.ToProd) Then txtToProd.Text = .ToProd ' date
    
            End With
    
        End Sub