儲存的時候﹐我想顯示 please wait... ﹐ 但不行 ....(編號：5670)

請看下面程式﹐為什 麼儲存的時候﹐"please wait..." 沒有顯示
出來 ? 謝謝 !
' Label1.text = "Please wait...."
Private Sub AddButton_Click()
Label1.Visible = True
cn.BeginTrans
rs1.AddNew
　rs1!field1 = .....
　rs1.Update
cn.CommitTrans
Label1.Visible = False
End Sub