Ayuda con código para agregar ceros al inicio de una numero

[Tarecito]

Hola, tengo este código que lo encontré en un post y que me funcionaba muy bien (la idea esque si se tiene un numero 3 lo convierta a 00000003-05):

year = right(year(date()), 2)
ultimo = Trim(rs("codigo")) + 1
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year

el problema es que al blanquear mi base de datos tuve que hacer esto:

sql = "select max(cod_doc) as codigo from Documento"
rs = conexion.Execute(sql)

---------------------------------------------
ESTO LO AGREGUE LUEGO DE BLANQUEAR LA BD
---------------------------------------------
if isNull(rs("codigo")) then
ultimo = 0
end if
---------------------------------------------
year = right(year(date()), 2)
ultimo = Trim(rs("codigo")) + 1
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year

pero me bota un error en la última línea, tal vez ese código no funciona cuando el valro es 0 o no se, tal vez la función IsnNull la estoy aplicando mal. Alguien podría ayudarem por favor? muchas gracias de antemano.

[Mickel]

Creo que esto deberia ser asi
if not rs.eof then
ultimo = Trim(rs("codigo")) + 1
else
ultimo=1
end if
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year

[Tarecito]

si, tienes razón, muchas gracias Mickel

[lexus]

asi lo hago yo, me funciona perfecto para agregar ceros delante de un numero

Código:

'############################
' esta funcion sirve para darle
' el formato 0004 a un determinado
' numero. util por ejemplo en
' facturacion
' su llamado es asi: FormatoNum(14,5)
' retornaria esto: 00014

function FormatoNum(num,digitos)
dim largo, dif,x
largo = Len(Cstr(num))
dif = digitos - largo
if dif < 0 then exit function
if largo < digitos Then
x = String(dif,"0") & Cstr(num)
else
x = Cstr(num)
end if
FormatoNum = x
End Function

[Tarecito]

esa función es muy buena, gracias por el dato Lexus