This example cancels changes made to bound controls and restores the data to
the original values. Copy this code into the definition section of a form that
has a data control named oradata1 (which has been successfully refreshed) and
has the KeyPreview property set to True. Then press F5.
Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Const KEY_ESCAPE = &H1B
If KeyCode = KEY_ESCAPE Then
oradata1.recordset.UpdateControls
End If
End Sub
