OpenOffice - Macro no funciona para el primer registro de subformulario

Hola,
Tengo una macro en un botón de un formulario de Ventas que tiene un subformulario de Detalle de Ventas, y que sirve para calcular el total de las ventas del subformulario de Detalle. Mi problema es que la macro funciona muy excepto para los siguientes casos: cuando el subformulario tiene 1 solo registro y cuando se hace una modificación del primer registro del subformulario.
Mi macro es la siguiente:
Sub CalcularTotalVentas( Evento )
Dim oFormulario As Object
Dim oSubFormulario As Object
Dim oGridComposicion As Object
Dim oTotal As Object
Dim oCantidad As Object
Dim oPrecio As Object
Dim fParcial As Double
Dim fTotal As Double
Dim co1 As Byte
Dim co2 As Byte

'El formulario principal
oFormulario = Evento.Source.getModel.getParent()
'El total
oTotal = oFormulario.getByName("fmttotal")
'El subformulario
oSubFormulario = oFormulario.getByName("SubForm")
'El control grid
oGridComposicion = oSubFormulario.getByName("SubForm_Grid")
'La columna cantidad
oCantidad = oGridComposicion.getByName("cantidad")
'La columna precio
oPrecio = oGridComposicion.getByName("precio")
'No movemos al primero componente de la formula
oSubFormulario.first()
Do

fParcial = oCantidad.getCurrentValue()*oPrecio.getCurrentValue()
'Sumamos los importes
fTotal = fTotal + fParcial

'Nos movemos al siguiente componente
oSubFormulario.next()

Loop Until oSubFormulario.isAfterLast()


oTotal=oFormulario.getByName("fmttotal")
oTotal.BoundField.UpdateFloat(fTotal)
oSubFormulario.Reload
End Sub
Agradeceré mucho una respuesta. Saludos,
Yessica