เมื่อคลิกใน DataGridview แล้วข้อมูลในฟอร์มไม่เปลี่ยนตามอะคับ

 'กำหนดการเลื่อนตำแหน่ง
    Sub ShowPosition()
        currentRecord = Me.BindingContext(ds, "Member").Position + 1 'กำหนดคุณลักษณะในการแสดงหน้าข้อมูล
        recordCount = Me.BindingContext(ds, "Member").Count          'นับจำนวานหน้าข้อมูลทั้งหมด
        'กำหนดการแสดงของ Label เป็น "ลำดับที่"/"จาก"
        lblrecord.Text = "ลำดับที่:" & currentRecord.ToString & "/" & " จาก:" & recordCount.ToString

    End Sub

    'แสดงหน้าข้อมูลแต่ละหน้า
    Sub ShowRecord()

        Dim sqlMember As String = "SELECT*FROM Member ORDER BY Member_id ASC"  'เรียกดูข้อมูลทั้งหมดจากตาราง student
        ds.Tables("Member").Clear()                       'ทำการเคลียร์ข้อมูลเดิมก่อนเรียกข้อมูลใหม่
        da.SelectCommand.CommandText = sqlMember  'ส่งค่าคำสั่ง sql ให้กับ dta
        da.Fill(ds, "Member")

        dt = ds.Tables("Member")
        dgvmem_detail.DataSource = ds.Tables("Member")

        If ds.Tables("Member").Rows.Count <> 0 Then
            'เรียกใช้งานคำสั่งที่กำหนดไว้
            Call Clrallbinding()                        'ทำการยกเลิกการผูกติดเดิมก่อนการสร้างการผูกติดครั้งใหม่
            Call MakeAllBinding()                       'ทำการผูกติดข้อมูลกับ control บนหน้าจอ
            Call ShowPosition()                         'เลื่อนตำแหน่งของข้อมูลในแต่ละ Record
            Call Locked()                               'เรียกใช้งาน locked

        End If

 Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

        'เลื่อนตำแหน่งไปยัง ตำแหน่งแรกสุด
        Me.BindingContext(ds, "Member").Position = 0
        Call ShowRecord()

    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

        'เลื่อนตำแหน่งไปยัง ก่อนหน้านี้
        Me.BindingContext(ds, "Member").Position -= 1
        Call ShowRecord()

    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

        'เลื่อนตำแหน่งไปยัง หน้าถัดไป
        Me.BindingContext(ds, "Member").Position += 1
        Call ShowRecord()

    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

        'เลื่อนตำแหน่งไปยัง หน้าสุดท้าย
        Me.BindingContext(ds, "Member").Position = ds.Tables("Member").Rows.Count - 1
        Call ShowRecord()

    End Sub