Connections and Commands

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

---

Yes. All the three queries should get executed.

Cheers!
Abhijit