Algo asi, aunque no estoy seguro que realmente aplique la segunda condicion, ya que si no es eof, trae un valor...en fin, cuestion de probar
Código:
sql = "select max(cod_doc) as codigo from Documento"
rs = conexion.Execute(sql)
if not rs.eof then
if isNull(rs("codigo")) then
ultimo = 0
else
ultimo = rs("codigo")
end if
else
ultimo = 0
end if
Salu2,