Private Sub updateRecord()
        Try
            If (txtHN.Text <> Nothing) Then
                Dim conn1 As OleDbConnection = New OleDbConnection
                conn1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\db.mdb"
                conn1.Open()

                Dim cmdQ As New OleDbCommand
                cmdQ.Connection = conn1
                cmdQ.CommandText = "SELECT * FROM Treatment WHERE Treatment.HospNo ='" & txtHN.Text & "'" ' AND Treatment.TreatDate ='" & lblx.Text & "'"
                Dim daQ As OleDbDataAdapter = New OleDbDataAdapter(cmdQ)
                Dim dsQ As DataSet = New DataSet
                Dim dtQ As DataTable = New DataTable

                daQ.Fill(dsQ)
                daQ.FillSchema(dsQ, SchemaType.Source)
                dtQ = dsQ.Tables(0)

                Dim drw As DataRow
                Dim key As String = lblx.Text.ToString
                drw = dtQ.Rows.Find(key)

                MessageBox.Show(drw("Summary"))

                drw.BeginEdit()
                drw("Summary") = tbxSmy.Text
                drw.EndEdit()
                stb.Text = " file 檔案： " & txtHN.Text & "; date 日期： " & lblx.Text & " is updated 經巳存檔。"

                Dim cmdBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(daQ)
                daQ.Update(dsQ)
                daQ.UpdateCommand.CommandText = "UPDATE Treatement SET Treatment.Summary ='" & tbxSmy.Text & "' WHERE TreatDate='" & lblx.Text & "' AND Treatment.HospNo ='" & txtHN.Text & "'"

                daQ.UpdateCommand.ExecuteNonQuery()
                conn1.Close()

                clrAll()

            Else
                stb.Text = " invalid operation 此操作無效。"


            End If
        Catch ex As Exception

        End Try

    End Sub

daQ.UpdateCommand.CommandText = "UPDATE Treatement SET Treatment.Summary ='" & tbxSmy.Text & "' WHERE TreatDate='" & lblx.Text & "', Treatment.HospNo ='" & txtHN.Text & "'"