Wanting to move to a record in a dataset - NON Query

See more:

VB

First: Programming with Visual Basic 2012 (WinForm). SQLExpress 2012 as my SQL server.

I am VERY green at VB and am attempting to do the following:
Input a Load Number into a Textbox. The load number will be found in one of 2 fields (PETS_LOAD_NUMBER or PRIME_LOAD_NUMBER) but not both. Once the load number is located I then want to move to the record in the dataset. I do not want a dataset loaded where only that record loads.

In essence I am wanting to replicate the functionality of MS ACCESS, where you type in the "search" box and it automatically goes to the record.

Here is what I have thus far but having one issue. The initial usage of the search box requires me to hit enter two times. Once the result is found and moved to the record, then any subsequent search requires only one tap of the enter button and all works as intended.

Private Sub NavSearchBtnLoad_Click(sender As System.Object, e As System.EventArgs) Handles NavSearchBtnLoad.Click
    'General Declarations
    Dim DB_REC_CNT As Int16 = LoadInfoDataSet.Load_Info_Table.Count 'Counts Records in Database
    Dim SrchVal As String = SrchLoadInputAll.Text 'This is Load Number your searching for
    Dim IdVal As Integer 'ID of record found
    Dim SrchResult As Boolean = False 'Did search pass/fail default is fail
    Dim LoopCnt As Int16 'Loop integer

    'Perform Search
    For LoopCnt = 0 To DB_REC_CNT - 1 ' Loops thru listboxes searching for the load number
        Try
            If LoadInfoDataSet.Load_Info_Table.Item(LoopCnt).PETS_LOAD_NUMBER = SrchVal Then SrchResult = True
            If LoadInfoDataSet.Load_Info_Table.Item(LoopCnt).PRIME_LOAD_NUMBER = SrchVal Then SrchResult = True
            If SrchResult = True Then
                IdVal = LoopCnt
                LoopCnt = DB_REC_CNT - 1 ' Stops searching before end of list if found
            End If
        Catch ex As Exception
        End Try
    Next

    Try
        If SrchResult = False Then
            ' Display a message box notifying users the record cannot be found.
            If MessageBox.Show("NO RECORD FOUND. PLEASE RETRY YOUR SEARCH", "P.E.T.S. DATA MANAGEMENT SYSTEM", _
                  MessageBoxButtons.OK, MessageBoxIcon.Information) _
                = DialogResult.OK Then
            End If
            Exit Sub
        End If

    Catch ex As Exception

    End Try
    'Copy ID to Navigator and Run
    Try
        Dim ID As String = LoadInfoDataSet.Load_Info_Table.Item(IdVal).ID
        BindingNavigator1.PositionItem.Text = ID
        'Code For clicking to go to selected record
        BindingNavigatorPositionItem.Focus()
        BindingNavigator1.Focus()
        BindingNavigator1.Update()
    Catch ex As Exception
    End Try

End Sub