Hi, I am trying to figure out if something will work (using a Connection and Command) object but I don't have much experience with them. Look at this pseudo-code, can you tell me if at the end of Sub A(), will all 3 queries be commited?

Thanks
Code:
Dim MyConn As ADODB.Connection

Sub A()
		
	MyConn.BeginTrans

	' Execute Query 'A' MyConn

	Call B(MyConn)

	MyConn.CommitTrans

End Sub


Sub B(oConnection As Connection)

Dim MyComm As New Command
	
	' Execute Query 'B' with oConnection
	
	Set MyComm.ActiveConnection = oConnenction
	
	Call C(MyComm)
	
	Set MyComm = Nothing

End Sub


Sub C(oCommand As Command)
	
	' Execute Query 'C' with oCommand
End Sub