Oracle rollback in VBA



Hi,

I'm doing a project involving a Oracle database with an MS Access
application as front-end written in VBA.
I want to use specific Oracle calls like rollback and commit within
this application. I know I can use passthrough queries for this, but if
I define one with SQL property 'rollback' it produces an Oracle
failure.

my code:

Public Sub Rollback()
Dim psq As QueryDef
Dim strsql As String

Set psq = CurrentDb.CreateQueryDef("passthrough")
psq.Connect = globalConnectString
strsql = "rollback;"
psq.SQL = strsql
psq.ReturnsRecords = False
psq.Execute
psq.Close

End Sub

thanks in advance.

greetings,
Erik.

p.s. the globalconnectstring connects to oracle (this works in other
places).

.