Hi! I need to pass search results and reload the form. What's the best way to do it? The code for search routine is below:

----------------------------------------------------
Dim count, i, pos As Integer
Dim s As String
s = InputBox("Enter in search criteriar:", "Search")
If s = "" Then

Else
count = 0
Do Until (count = Me.BindingContext(objBDB, "PDDBdbReport_View").Count)
If objBDB.PDDBdbReport_View.Rows(count).Item("ProjectNumber") = s Then
pos = Me.BindingContext(objBDB, "PDDBdbReport_View").Position
End If
count = count + 1
Loop
If pos > 0 Then
Me.BindingContext(objBDB, "PDDBdbReport_View").Position = pos

Else
MsgBox("Unable to find search.", MsgBoxStyle.OKOnly, "Not found")
End If
End If