为什么我的事务处理不能撤销？？？？高手帮一下啊

Question

代码如下：
Public cust As Recordset, cuswork As Workspace
Private Sub Command1_Click()
  Dim conn As ADODB.Connection
  Dim cmd As ADODB.Command
  Dim rs As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set cmd = New ADODB.Command
  conn.ConnectionString = "Provider=MSDAORA.1;Password=pims;User   ID=pims;Data Source=pims;Persist Security Info=True"
  conn.Open
  Set cmd.ActiveConnection = conn
  cmd.CommandType = adCmdStoredProc
  cmd.CommandText = "p_test" & "(2)"
  Set rs = cmd.Execute
  MsgBox "good"
End SubPrivate Sub Form_Load()
   Set cuswork = Workspaces(0)
   'Set cust = Adodc1.Recordset
   cuswork.BeginTrans
End SubPrivate Sub Form_Unload(Cancel As Integer)
  If MsgBox("save all changes?", vbQuestion + vbYesNo, "save changes") = vbYes Then
     cuswork.CommitTrans
  Else
     cuswork.Rollback
  End If
End Sub
调用的是oracle中的一个简单的insert存储过程
每次退出程序提问时我选择no时，数据库中却都插入了新的数据哦？？？
哪里出问题了？？？