Question Display data with BindingContext

[tqmd1]

Dear Experts

I use following codes to display data.
Next & Back buttons work fine, but when I enter some sno into textbox1 then it displays nothing

Codes on textbox1 lostfocus

   Me.ds.Tables("employees").Rows.Find(Me.TextBox1.Text)

Codes in Form Load

Dim sql = "select * from employees"
        Dim da As New SqlClient.SqlDataAdapter(sql, con)
        ds.Clear()
        da.Fill(ds, "employees")
        TextBox1.DataBindings.Add("text", ds.Tables("employees"), "sno")
        TextBox2.DataBindings.Add("text", ds.Tables("employees"), "Name")
        TextBox3.DataBindings.Add("text", ds.Tables("employees"), "City")
        TextBox4.DataBindings.Add("text", ds.Tables("employees"), "Phone")

        Dim colpk(0) As DataColumn
        colpk(0) = ds.Tables(0).Columns("sno")
        ds.Tables(0).PrimaryKey = colpk

Codes on Next Button

Me.BindingContext(ds.Tables("employees")).Position += 1

Codes on Back Button

Me.BindingContext(ds.Tables("employees")).Position -= 1

How to display relevant data against column sno given in textbox1

Please help