Hola Sonneman :)
Tenés un error de anidamiento.
while (not objRS4.Eof)
if rs2("id_pedido") >= total_actual then
wend
End if
Lo correcto es:
While
If
End If
Wend
o sino:
If
While
Wend
End If
Suerte ;)
<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>
Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>