Visual Basic - Transacciones SQL

Alguien que me pueda enviar un ejemplo de transacciones en sql BeginTrans, CommitTrans, rollbacktrans, de antemano muchas gracias ya tengo el sistema listo pero necesito instalarlo en modo multiusuario y al tocar el registro al mismo tiempo dos usuarios me genera error, gracias.

On Error GoTo Error_Guardar
DB.Open “Provider=SQLOLEDB;” & _
“User ID=sa;” & _
“Pwd=;” & _
“Initial Catalog=Videoclub;” & _
“Data Source=(local)”
DB.BeginTrans
rsAlquileres.Open “ALQUILERES”, _
DB, _
adOpenKeyset, _
adLockOptimistic, _
adCmdTable
rsAlquileres.AddNew
rsAlquileres!CodPelicula = txtCodPelicula.Text
rsAlquileres!CodCliente = txtCodCliente.Text
rsAlquileres.Update
rsAlquileres.Close
rsCopias.Open “SELECT * FROM COPIAS “ & _
“WHERE CodPelicula = “ & _
txtCodPelicula.Text & _
“ AND Alquilada = 0”, _
DB, _
adOpenKeyset, _
adLockOptimistic, _
adCmdText
If rsCopias.BOF And rsCopias.EOF Then
‘Recordset vacío
Err.Raise 1000, , _
“No hay copias disponibles “ & _
“de la película seleccionada”
Else
rsCopias.MoveFirst
CodCopia = rsCopias!CodCopia
rsCopias!Alquilada = True
rsCopias.Update
End If
rsAlquileres.Open “SELECT * FROM ALQUILERES “ & _
“WHERE CodPelicula = “ & _
txtCodPelicula.Text & _
“ AND CodCliente = “ & _
txtCodCliente.Text, _
DB, _
adOpenKeyset, _
adLockOptimistic, _
adCmdText
rsAlquileres!CodCopia = CodCopia
rsAlquileres.Update
Error_Guardar:
If Err.Number <> 0 Then
DB.RollbackTrans
MsgBox “Error: “ & Err.Number & _
“ - “ & Err.Description
Else
DB.CommitTrans
MsgBox “Alquiler registrado “ & _
“exitosamente”
txtCodPelicula.Text = “”
txtCodCliente.Text = “”
txtCodPelicula.SetFocus
End If
End Sub

Puedes leer en la ayuda de visual basic y tambien hay ejemplos y la explicqacion de dichos métodos