maximo valor en vector

[-rommel_]

Código vb:

do while not rst.EOF
    x=Round(Abs(rst.Fields(7)/fields(5)),2)
    if x>z Then z=x
    rst.moveNext
loop
 

yo creo que quedaria mejor... en tu casa... habria veces que correrias 2 registros en una sola pasada... mejor asi..