Visual Basic - COMMIT ADO

Tengo una conexión a Oracle de la siguiente manera:

servidor = "SERVER= " & bd & ";"
usuapass = "UID=" & usu & ";" & "PWD= " & pass & ";"

Set conexion = New ADODB.Connection
With conexion
.ConnectionTimeout = 3
.CursorLocation = adUseClient
End With
strConnection = servidor & "DRIVER={Microsoft ODBC for ORACLE};" & usuapass
conexion.Open strConnection

Y una sentencia ADO de actualización similar a:
Dim cmd As ADODB.Command
Dim consulta As String
Dim respuesta

consulta = "update datospers set swbaja = 1 where memnum = '" & Text1(0).Text & "'"

respuesta = MsgBox("Se va a proceder a dar de baja el MEMNUM " & Text1(0).Text, 1)
If respuesta = 1 Then
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Main.conexion
cmd.CommandText = consulta
cmd.CommandType = adCmdText

cmd.Execute
MsgBox "¡¡Baja realizada!!"
End If

Me gustaría saber ¿DONDE SE INDICA QUE HAGA COMMIT o NO LO HAGA?. En un principio, yo quiero que sea automatico... pero ¿de que manera lo puedo controlar?.

Mi idea es que esra haciendo commit, ya que una vez cerrada la sesion... los cambios continuan.
Gracias.

Si no especificas explícitamente que quieres iniciar una transacción, entonces ADO commitea automáticamente, si quieres controlar cualquier problema, claro el commiteo lo realiza el objeto "connection", mediante éste puedes ejecutar varios comandos de ADO, y hasta que todo termine envias al objeto de conexión el CommitTrans.

Asumiendo que la conexión que tienes es del tipo objeto:

Main.conexion.begintrans
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Main.conexion
cmd.CommandText = consulta
cmd.CommandType = adCmdText
Main.conexion.committrans