traduci in vbscript quello che ha scritto nextstart e prova se funziona!
If not rs.eof then
prog = rs("prog") + 1
prec = rs("prog") -1
end if