เปลี่ยนค่าใน Combobox แล้ว คอลโทล อื่นๆ ไม่เปลี่ยนตาม

    Private Sub frmSystemDoc_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CloseProgram = True  ' ไม่ให้ปิดโปรแกรม
        Cursor.Current = Cursors.WaitCursor ' เปลี่ยนสถานะของเมาส์ให้เป็นนาฬิกาทราย
        ' ปิดการใช้ คอลโทล ทุกตั่วชั่วคราว
        btnSelect.Enabled = False

        BtnAdd.Visible = False
        btnEdit.Visible = False
        btnDelete.Visible = False
        btnSave.Visible = False
        btnCancle.Visible = False

        btnFirst.Enabled = False
        BtnPrevious.Enabled = False
        btnNext.Enabled = False
        btnLast.Enabled = False

        menuClose.Enabled = False

        dtgDoc.Enabled = False
        cboBinder.Enabled = False
        txtNum.ReadOnly = True
        txtName.ReadOnly = True
        txtNote.ReadOnly = True
        dtpDateDoc.Value = Date.Now
        dtpDateDoc.Enabled = False
        DTPSaveDate.Value = Date.Now
        DTPSaveDate.Enabled = False

        'โหลดข้อมูลจากตาราง Binder มาใส่ใน cboBinder
        Dim StrSqlBinder As String = "SELECT * FROM Binder ORDER BY Binder_number;"
        Dim CommSelectBinder As New OleDbCommand
        With CommSelectBinder
            .Connection = Conn
            .CommandType = CommandType.Text
            .CommandText = StrSqlBinder
            .CommandTimeout = 90
            .ExecuteNonQuery()
        End With
        Da.SelectCommand = CommSelectBinder
        Da.Fill(Ds, "Binder")
        Dt_Binder = Ds.Tables("Binder")
        If Ds.Tables("Binder").Rows.Count = 0 Then
            MsgBox("ยังไม่มีแฟ้มที่จะใส่เอกสารใดๆ" & vbCrLf & "โปรดไปเพิ่มแฟ้มเอกสารก่อน..." _
                   , MsgBoxStyle.Critical + MsgBoxStyle.OkOnly _
                   , "คำเตือน...")
            Me.Close()
            Exit Sub
        End If

        'แสดงข้อมูลใน cboBinder
        With cboBinder
            .DataSource = Ds.Tables("Binder")
            .DisplayMember = "Binder_number"
            .ValueMember = "Binder_number"
        End With
        'แสดงรายละเอียดใน Lable ที่ชื่อ lblBinderDetail
        lblBinderDetail.DataBindings.Add("Text", Ds, "Binder.Name")

        'เลื่อนไปที่ Record แรก
        Me.BindingContext(Ds.Tables("Binder")).Position = 0
        Binder_Record_position = 0
        'โหลดข้อมูลจากตาราง Document มาแสดง
        LoadData()
        ' แสดงปุ่ม
        EnableControl("Display")
        Cursor.Current = Cursors.Default
    End Sub