sqlSearch1 = "select * from Consumer where (Con_id='" & txtSearch.Text & "')"
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
da = New SqlDataAdapter(sqlSearch1, Conn)
da.Fill(ds, "Consumer")
txtid.DataBindings.Add("Text", ds, "Consumer.Con_id")
txtid.DataBindings.Clear()