Searching dataset hangs screen

[dagoose]

Hi all,

i have a function which opens a new screen and tries to search through the dataset to find a specific record. The form opens but it hangs, what am i doing wrong?

Public Function Add_New()
 
        Dim frmNS As New frmNS
        frmNS.Show()
 
        Try
            Do While frmNS.objdsCDets_SDets.CDets(0).CHD_ID() <> sv
                frmNS.BindingContext(frmNS.objdsCDets_SDets, "ChD").Position = (frmNS.BindingContext(frmNS.objdsCDets_SDets, "ChD").Position + 1)
            Loop
 
        Catch ex As Exception
            MsgBox("Error", MsgBoxStyle.OKOnly)
        End Try
 
End Function
 
'where sv contains the pk from the previous form

Cheers