Workspaces

[Steven]

I have created a workspace and I am doing 3 dbs.Execute
functions.

wrkDefault.BeginTrans

Set dbs = OpenDatabase(dbName)

dbs.Execute "INSERT INTO ....etc"
dbs.Execute "UPDATE .... INNER JOIN ..... etc"
dbs.Execute "DELETE table.* from table"

If MsgBox("Save and commit?", vbYesNo) = vbYes Then
wrkDefault.CommitTrans dbForceOSFlush
Else
wrkDefault.Rollback
End If

If I choose NO and do the wrkDefault.Rollback everything
appears to work fine except when I go back and open a
recordset on the table where I was deleting the records it
tells me that the rst.RecordCount = 0 although the table
still has the records. Can you tell me what I am doing
wrong.

Thank you for your help.

Steven