That worked. I swapped the priority around.

Thankyou Wayne and Brendan


"Wayne Morgan" wrote in message
...
In you Dim statement you have

Dim cnn As Connection

You are not specifying ADO or DAO. There is a DAO connection object also.
I
suspect that if you go to Tools|References in the code editor you will
find
that you have DAO and ADO both checked and that DAO is higher in the list
than ADO. If you don't specify which one to use, Access will use the first
match if finds in the order that the references are listed. The best
option
is to specify as you did with the Recordset Dim statement.

--
Wayne Morgan
MS Access MVP


"Chris" wrote in message
...
Hi All. I'm trying to use the ADO connection event .BeginTrans.
However
my
program always gives me the DAO members list when I type the "."
I have copied the code from an access book that I am working on and it
works
fine in the example.

Any Ideas

Problem is last line of code

Dim strMessage As String
Dim rstIssues As New ADODB.Recordset
Dim cnn As Connection
Dim VarPosition As Variant

' Make sure NewAssignee has a value selected.
If IsNull(NewAssignee) Then
DisplayMessage "You must select an employee to assign issues to."
Exit Sub
End If

' Make sure one or more issues are selected.
If IssueList.ItemsSelected.Count = 0 Then
DisplayMessage "You must select issues to reassign."
Exit Sub
End If

' Confirm the reassignment.
strMessage = "Reassign selected issues to " & NewAssignee.Column(1) &
"?"
If Confirm(strMessage) Then

' Display the hourglass icon while reassigning issues.
DoCmd.Hourglass True
'Open a recordset object in the current database
Set cnn = CurrentProject.Connection
rstIssues.Open "tblStatofAffairs", cnn, adOpenKeyset,
adLockOptimistic, _
adCmdTableDirect
'Begin a transaction before changing the data.
- cnn.BeginTrans -- error










Option Compare Database

Option Explicit



Public Const conAppName = "Issue Tracking"



Public Sub DisplayMessage(strMessage As String)

' Display an important message to the user.

MsgBox strMessage, vbExclamation, conAppName

End Sub



Public Function Confirm(strMessage As String) As Boolean

' Ask the user to confirm an action, returning True or False.

Dim bytChoice As Byte

bytChoice = MsgBox(strMessage, vbQuestion + vbOKCancel,
conAppName)

If bytChoice = vbOK Then

Confirm = True

Else

Confirm = False

End If



End Function