Si lo que quieres es sacar la suma de cierto pago utiliza un sentencia SQL con un alias y posteriormente le asignas ese alias a una caja de texto o lo que tu deceas un ejemplo seria asi:
Código:
SELECT SUM(monto) AS MontoTotal FROM dbo_pagos WHERE cob_num = ' " & cpnum & " ' ")
acum = MontoTotal
Espero te sirva.
Nos Vemos
Edito:
Se me pasaba si estas trabajando con numeros utiliza las comillas Simples "" tu consulta seria asi:
Código:
Set rsCodigopago = myconn.Execute("SELECT cob_num_temp FROM pagos_temp")
rsCodigopago.MoveFirst
While Not rsCodigopago.EOF
cp = rsCodigopago!cob_num_temp
cpnum = CInt(cp)
Set rsMontocodigo = myconn.Execute("SELECT monto FROM dbo_pagos WHERE cob_num = " & cpnum & "")
acum = acum + rsMontocodigo!monto
rsCodigopago.MoveNext
Wend
Print acum
a ver si ahora te funciona, si no has lo otro que te plantee