Corte Z en PV con VB6

[franko1809]

yo lo hago de la siguiente manera aunque espero distingas el nombre del campo y la variable que tienen el mismo nombre "subtotal"

Código:

Sub Calculos()
    If rsTemporal.RecordCount > 0 Then
        Dim SubTotal As Double
        rsTemporal.MoveFirst
        Do
            SubTotal = SubTotal + rsTemporal.Fields("SubTotal")
            rsTemporal.MoveNext
        Loop While Not rsTemporal.EOF
        TxtTotal = SubTotal
    End If
End Sub

saludos