ACC2000: Access Hangs When Mixing DDL and ADO Transaction Methods

1. Press CTRL+ALT+DEL to open the Close Program dialog box.
2. Select either Microsoft Access or the Visual Basic Editor.
   
   NOTE: If the problem code is started from the Visual Basic Editor, the Close Program dialog box shows Visual Basic [Running] instead of listing Access. If you start the problem code from within Access, such as from a form or a macro, the Close Program dialog box shows Microsoft Access [Not Responding].
3. Click End Task.
4. If another dialog box appears with the title Microsoft Access [Not Responding], click End Task on that as well.
   
   Access and/or the Visual Basic Editor will then close.

Steps to Reproduce Behavior

1. Create a new database called TestCode.mdb.
2. In TestCode.mdb, create a new module.
3. On the Tools menu, click References. In the References dialog box, make sure the following library is selected (checked):
   Microsoft ADO Ext. 2.1 for DDL and Security
4. In the new module, type the following procedure:

   Sub JET40Transaction()
   
      Dim conn As New ADODB.Connection
      Dim SQL As String
      Dim ADOXCat As New ADOX.Catalog
       
      On Error GoTo ErrorHandler
       
      Kill "c:\Test1.mdb"
      ADOXCat.Create "Provider=Microsoft.Jet.OLEDB.4.0; _
      Data Source=c:\Test1.mdb"
       
      With conn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Open "Data Source=c:\Test1.mdb"
         .Execute "CREATE TABLE TASKS ([Emp ID] Char(5), EmpName char(20));"
         .Execute "INSERT INTO TASKS ([Emp ID],EmpName) VALUES ('1','Bob');"
         .Execute "INSERT INTO TASKS ([Emp ID],EmpName) VALUES ('5','Joe');"         End With
   
      conn.Execute "BEGIN TRANSACTION"
      conn.Execute "DELETE Tasks.[Emp ID], Tasks.*" & _
         "From Tasks" & " WHERE (((Tasks.[Emp ID])='5'));"
   
      conn.CommitTrans
   
   Exit Sub
   
   ErrorHandler:
      If Err = 53 Then
         Resume Next
      End If
   
      MsgBox Error & " error # " & Err
   
   End Sub
   					

5. On the File menu, click Save and save the module as Module1.
6. In the Immediate window, type the following and press ENTER:

   Jet40Transaction
   						

   Note that Access and the Visual Basic Editor stop responding.
7. Close Access and the Visual Basic Editor using the Close Program dialog box.

conn.Execute "COMMIT  TRANSACTION"
				

conn.CommitTrans