ACC: Cannot Open Recordset on SQL Server Inside Transaction

MORE INFORMATION

Steps to Reproduce Behavior

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).
2. Create a module and type the following line in the Declarations section if it is not already there:

         Option Explicit

3. Type the following procedure:
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

         Function Trans_Fail ()
            Dim db As Database
            Dim ws As WorkSpace
            Dim rs As Recordset
            Dim connectstring As String
            connectstring = "ODBC;DSN=<datasource name>;UID=<username>;_
                               PWD=<password>;DATABASE=PUBS"
   
            ' NOTE: For the "connectstring" line above replace <datasource
            ' name> with the name of your data source for SQL Server;
            ' replace <username> with the username used to log on to the data
            ' source; and replace <password> with the appropriate password.
   
            On Error GoTo Trans_Fail_Err
            Set ws = dbengine.Workspaces(0)
            Set db = ws.OpenDatabase("", False, False, connectstring)
            ws.BeginTrans   'Starts the transaction.
            Set rs = db.OpenRecordset("dbo.authors")   'Opens the recordset.
            rs.MoveLast
            Debug.Print rs![au_lname]
            ws.CommitTrans   'Commits the transaction.
            rs.Close  'Closes the Recordset.
            db.Close
            Exit Function
   
         Trans_Fail_Err:
            ws.Rollback
            If Err = 3146 Then 'ODBC call failed
               Error (Err)
            Else
               MsgBox Error$   'The message if a different error occurs.
            End If
            Exit Function
         End Function
   						

4. Type the following line in the Debug Window (or Immediate window in version 2.0)and press ENTER:

   ? Trans_Fail()