Visual Basic - BeginTrans,RollbackTrans, y CommitTrans

Estoy tratando de utilizar estas sentencias pero no me funcionan, utilizo coneccion ado, si me pueden ayudar y enviar un pequeño ejemplo les agradeseria.
Saludos.

Si Cn es una conexion válida:

Private Sub Prueba
On error goto Err_Transaccion
Cn.BeginTransaction 'Comienza la transaccion

'Aqui opero con el /los recordset /s

Cn.CommitTransaction 'Se ejecuta los cambios.
on error goto 0
Exit Sub

Err_transaction:
Cn.RollBackTransaction 'Deja los datos como estaba.
End sub