การ Update รับข้อมูลจาก combobox(ตัวหนังสือ) Save ลง database(Access) เป็นค่า ID ของค่าใน combobox

'Try
        Dim Conn As New OleDbConnection
        Dim Cmd As New OleDbCommand
        Dim cmdtext As String

        Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dormitory.mdb;"

        cmdtext = "UPDATE EmpDetail "
        cmdtext = cmdtext & " SET EmpType = '" & lblType.Text & "',"
        cmdtext = cmdtext & " Reson = '" & lblReson.Text & "', "
        cmdtext = cmdtext & " Asset = '" & lblAsset.Text & "',"
        cmdtext = cmdtext & " Reservation = '" & lblReservation.Text & "',"
        cmdtext = cmdtext & " Roomnumber = '" & lblRoom.Text & "',"
        cmdtext = cmdtext & "StatusId = " & cmbApp.SelectedValue & "'"    มันติดตรงนี้แหละครับทุกท่าน
        cmdtext = cmdtext & "WHERE ( EmpId =" & CInt(lblId.Text) & ")"

        Conn.ConnectionString = Cnnstring
        Cmd.Connection = Conn
        Conn.Open()
        Cmd.CommandText = cmdtext
        Cmd.CommandType = CommandType.Text

        Cmd.ExecuteNonQuery()
        Conn.Close()

        MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ผลการบันทึก", MessageBoxButtons.OK, MessageBoxIcon.Question)

        'Catch ex As Exception

        MessageBox.Show("กรอกข้อมูลไม่ถูกต้อง กรุณาตรวจสอบอีกครั้ง", "เกิดข้อผิดพลาดเกี่ยวกับระบบ", MessageBoxButtons.OK, MessageBoxIcon.Error)

        'End Try

        Dim sql As String

        sql = "SELECT Emp.EmpId,Emp.Prefix,Emp.EmpName,Emp.EmpLastname,Emp.Depertment,Emp.Address,Emp.District,Emp.Province,EmpDetail.EmpType,EmpDetail.Reson,EmpDetail.Asset,EmpDetail.Reservation,EmpDetail.Roomnumber FROM Emp INNER JOIN EmpDetail ON Emp.EmpId = EmpDetail.EmpId WHERE EmpDetail.StatusId = 3"

        Dim adapter As New OleDbDataAdapter(sql, Cnnstring)

        Dim dt As New DataTable("Emp")
        adapter.Fill(dt)

        DataGridView1.DataSource = dt