OpenOffice - Error en macro

Hola,
Tengo una base de datos de gestión empresarial. Tengo una tabla clientes que tiene un campo saldo_actual.
Por otro lado, tengo un formulario de ventas, en el cual tengo un campo total, y un botón Calcular Total.
Quiero hacer una macro que al hacer clic en el botón Calcular total sume el total al campo saldo_actual total. Ya tengo una macro que calcula el total de ventas, que funciona.
Yo asigné la macro para el evento del botón: Botón del ratón soltado. A continuación escribo mi macro:
Sub ActualizarSaldoVentas (Evento)
Dim oFrm As Object
Dim oCliente As Object
Dim oTotal As Object
Dim oCon As Object
Dim oStat As Object
Dim sSQL As String
Dim oRes As Object
Dim sCliente as String
oFrm=Evento.Source.Model.Parent
oCliente=oFrm.getByName("cod_cliente")
sCliente=oCliente.getCurrentValue()
oTotal=oFrm.getByName("total")
oCon=ThisDatabaseDocument.CurrentController.ActiveConnection
oStat=oCon.CreateStatement
sSQL="UPDATE cliente SET cliente.saldo_actual = cliente.saldo_saldo_actual + "& oTotal.getCurrentValue()& " WHERE id_cliente=" & oCliente.getCurrentValue()
oRes=oStat.ExecuteQuery(sSQL)
End Sub
Al hacer clic en el botón Calcular total, me aparece el siguiente error:
Error de ejecución BASIC. There was an exception.
Type: com.sun.star.container.NoSuchElementException Message:
Le agradecería mucho una ayuda por favor.
Saludos,
Yessica