VB5 with Oracle. Hangs because of transactions

Hello
  I'm trying to use a Oracle database for my VB5 programs, but I just found a nice problem:
  I tested the program at the end of this message with a Microsoft ODBC driver for Oracle
v2.00.006325 and a Oracle73 v 2.05.0301, but with both, the process just hangs when it tries to execute the "OpenRecordset" instruction at the end.
If I remove the BeginTrans /Commit Trans it works, but I need it because I have in the real aplication more instructions inside them.   Does anyone have any idea how to workaround this?

Thanks in advance,
P.Domingues mailto:Paulo.Domingues_at_pcm.bosch.de

Option Explicit
Const odbcWinCP = "ODBC;DSN=ORANT_32;UID=prodata;PWD=prodata" Dim Wks As Workspace, Conn As Connection

Private Sub Form_Load()

   Dim rs As Recordset    

   Set Wks = CreateWorkspace("ManutWorkspace", "prodata", "prodata", dbUseODBC)

   Set Conn = Wks.OpenConnection("ManutConnection", dbDriverNoPrompt, False, odbcWinCP + ";")

   Wks.BeginTrans

      Conn.Execute "DELETE FROM TURNOSLINHA WHERE IDSECCAO=' 5510' AND IDLINHA='7777'", dbExecDirect

   Wks.CommitTrans    

   Set rs = Conn.OpenRecordset("SELECT * FROM TURNOSLINHA", dbOpenForwardOnly, dbExecDirect)

   rs.Close
End Sub Received on Fri Apr 17 1998 - 00:00:00 CDT