รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever

  Dim bs As New BindingSource

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
  Dim da_mem As New SqlDataAdapter
  Dim ds_mem As New DataSet
  Dim sql As String
  sql = "SELECT * from tmember where memname like '%" & Textbox1.Text & "%' "
  da_mem.SelectCommand = New SqlCommand(Sql, Conn)
  ds_mem.Clear()
  da_mem.Fill(ds_mem, "tmember")
  bs.DataSource = ds_mem.Tables("tmember")
  dgvMember.DataSource = bs
End Sub

            txtmemID.text =bs(bs.Position)("memID").ToString
            ChkStatus.Checked =bs(bs.Position)("Status")
            txtMemname.text =bs(bs.Position)("memname").ToString
            txtmemlast.Text = bs(bs.Position)("memlast").ToString
            DateTimePickerDate.Values = DateTime.Parse(bs(bs.Position)("memBirth").ToString)
            txtAddress.Text = bs(bs.Position)("memadd").ToString
            txtmememail.Text = bs(bs.Position)("mememail").ToString
            txtmemtel.Text = bs(bs.Position)("memtel").ToString 

            Dim da_save As New SqlDataAdapter
            Dim ds_save As New DataSet
            Dim dr_save As DataRow = Nothing
            Dim sql As String = "select * from tmember where mem_autoid=" & bs(bs.Position)("mem_autoid")
            da_save.SelectCommand = New SqlCommand(sql, Conn)
            da_save.MissingSchemaAction = MissingSchemaAction.AddWithKey
            da_save.Fill(ds_save, "t_mem")
            dr_save = ds_save.Tables("t_mem").Rows.Find(bs(bs.Position)("mem_autoid"))

            Try
                With dr_save
                    .BeginEdit()
                    .Item("memID") = txtmemID.Text

                    .Item("memname") = txtmemname.Text
                    .Item("memlast") = txtmemlast.Text
                    .Item("memBirth") = DateTimePicker.Value
                    .Item("memstatus") = Cint(ChkStatus.Checked)
                    .Item("mememail") = txtmememail.Text

                    .Item("memtel") = txtmemtel.Text
                    .Item("memadd") = txtmemadd.Text
                  
                    .EndEdit()
                    da_save.UpdateCommand = sqlCB.GetUpdateCommand
                    da_save.Update(ds_save.Tables("t_mem"))
                    ds_save.AcceptChanges()


                    Call ShowData()'อันนี้สร้า Sub ขึ้นมาให้โชว์เอนะครับ
                End With
            Catch ex As SqlException
                MessageBox.Show(ex.Message)
            End Try
   

Dim sqlCB As New SqlCommandBuilder(da_save)

this.company_PositionTableAdapter.FillByID(this.bASEDataSet.Company_Position, 2);