cancelupdate失效??(編號:1217)

小弟資料輸入的表單內欲做一個"清除"所有text內容的功能鍵
於是用設空字串的方式
Private Sub clear_Click()
text1=""
text2=""
.
 .
 .
End Sub
但是若使用者在執行此清除鈕後想"取消",恢復原來的內容
於是按了"取消"的功能鍵
Private Sub cancel_Click()
Set rs1 = DataEnvironment1.rsCommand1
rs1.CancelUpdate
rs1.MoveNext
rs1.MovePrevious
End Sub
卻會發生一個問題,就是此筆資料無法回復了!
我試過若不是用程式去令text1=""
而是使用者自行用鍵盤清除text1的內容後再按"取消"功能鍵
即可恢復原本資料
請問為何會如此?要怎麼解決呢?
謝謝!